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Initialization for USR module 



\ 



^ , | 



. SFTIM, S< . FPROT 

— Get information about a file 

— Allocate a device 

— Deallocate a device 

— Check to see if a device is allocated 

— See if device is allocated to another user- 

— Common setup for Allocate/Deallocate 

— See if any channels open to a specified device 

— Mount a new file structure 

— Dismount a file structure 

— Dismount all mounted devices for job 
..._. R em0 ve entry from cache table 

— MOUNT/ DISMOUNT common setup 
■ — Copy mount entries from another job 

— Remove directory entries from dir cache 

— Common setup 
-■- Get file spec from user's area 

— Copy file specification from user's area 

— Claim usr data base for our job 

— Free the USR 

— See if requested device is lepal 

— Check for device allocation 

— Check legality of file access 

— Find file in directory 

— Find a free slot for a new file 
-~ Add a tentative file entry to directory 

— Add an empty file entry to directory 

— Split a directory segment 

— Directory segment consol idator 

— Locate next directory entry 

— Locate next directory entry in current segment 

— Allow user to access directory entry 

— Calculate starting block # for a file entry 

— Read 1st directory segment 

— Read a directory segment 

— Write directory segment 

— Directory operations for special devices 
• — Gain exclusive access to special device data base 

— Free special device data base 

— Add file entry to directory cache 

— Remove a file entry from the directory cache 
-- Search for file entry in directory cache 
™~ Determine if device is to be cached 

— Get device # & unit # info 

— Get user-flag for cached device entry 
-— ■ Exit from USR 
--— Set name of file spec for error message 
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. LOOKUP 



Found file. Save info about file in channel. 
<R1 now points to directory entry for file). 
<R0 Contains starting block number of the file). 



58 










59 










60 










61 










62 










63 


002300 


010063 


0000000 




64 


002304 


016100 


OOOOOOG 




65 


002310 


010063 


OOOOOOG 




66 


002314 


010037 


OOOOOOG 




67 


002320 


016137 


0000000 


OOOOOOG 


68 


002326 


016137 


OOOOOOG 


OOOOOOG 


69 










70 










71 










72 
73 
74 


002334 


004737 


013254' 












75 










76 


002340 


000137 


015172' 





2$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



SET FILE STARTING BLOCK # 
GET ALLOCATED SIZE OF FILE 
STORE IN CHANNEL BLOCK 
RETURN TO USER IN RO 
FD*TIM(R1)*LSTFDT; SAVE TIME ENTRY FROM EACH LOOKUP 
FD*DATCR1), LSTFDDj ALSO SAVE DATE ENTRY 



RO, C. SBLK<R3) 
FD*LEN(R.t ),R0 
RO, C. LENG(R3) 
RO, URO 



3*: 



Allow user to diddle with directory entry if he wants to. 

CALL DIDDLE > ALLOW DIRECTORY ENTRY DIDDLE 

F i n i s h e d 

JMP USRXIT i EXIT FROM USR PROCESSING 



c 
( 



TSUSR 
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000000 
000000 



io3ii; 



.TITLE TSUSR - File operation EMT ' s 

. ENABL LC 

. ENABL AMA 

. DSABL OBL 

TSUSR is the TSX module that contains the processing routines for 
EMTs that perform file operations such as .lookup, .enter* .delete, 

. rename, etc. 

Copyright (c) 1980, 1981, 1982, 1983, 1984,1985. 
S&H Computer Systems, Inc. Nashville, TN 
All rights reserved. 



TSUSR : 



. CSECT TSUSR 
. RAD50 /USR/ 



Macro calls 

. MCALL . READW, . WRJTW, . WAIT 

Global definitions 

. GLOBL TSUSR, OETUSR, USRTOP, USR INI 

. GLOBL LOOKUP, ENTER, CLOSE, DELETE, RENAME 

. GLOBL DSTAT, FREUSR, USRUCA, ALCEMT, CLRDIR 

. GLOBL SFTIME, SFDATE, SFPROT, GFINFO 

. GLOBL MOUNT, DISMNT, FRESPD, FETCH, CPYMNT 

Global references 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



EXCJOB 

DVSTAT, CHNADR, FILSPC, EMTBLK, ASNTBL, LDDEMT, LDIEMT 

LDAEMT, ASNEND, CORUSR, S*QUSR, MAXLD, KPAR6, WLDNAM 

AT*LOG, AT$SIZ, AT*DEV, AT$FIL, AT*EXT, AT**SZ 

POSALC, PRIVCO, POSBYP, PO*NFR, PO*NFW 

CHKABT, UREGO, NUMDEV, LSTFDT, LSTFDD 

TK3SVL, FD*TIM, SYTIMH, SYTIML, FC$CDX 

QNSPNX, JCDB, DVFLAG, DX*RAL, DX*NMT 

PNAME, CHNNUM, SY.INDX, SYUNIT, RUNFLG, AFSBYA 

C. CSW, C. SBLK, C. LENG, C. USED, C. NUMQ, C. DEVG 

CS*NMX, CS*ENT, SERFLG, $KINIT, NLCHN 

CSHOPN, CHKSD, CBSSPL, CSHCLN, CSHALC 

LSW2, RESDEV, OKFILE, OF*DEV, LSW6 

OFSUNT, OT$RON, OF*FLG, OF*FIL, OF**SZ 

OKFEND, LSW5, CS*RON, ERRSPC, CSHEOF, CS*ERR 

DSSNRD, CL$LIX, PRIVCO, PO*SYS, DX*NRD 

DS*DIR, SDCLOS, SFCLS, VMXFIL, $UCLRN, LSW7 

FDSSTA, FD*NAM, FD*LEN, FDSJOB, FD*CHN 

FD*DAT, FD$OPT, CPLEMT, EMTCAD 

FS$TEN, FS*EMP, FS*PRM, FSUEOS, VNFCSH 

ALCTBL, ALCEND, AD*DVU, AD* JOB, AD*FLG, AD**SZ 

DH*HIS, DH*NEB, DH$BLK 

LDFLAG, LD*RON 
EMTXIT, SETERR, URO, SYSCHN 
SYSDAT, GETCHA, LSW, $DILUP, LDSIZE 
FC**SZ, BADEMT, LNPRIM, CLTOTL 
IOWA IT, GETCXT, FRECXT 



DH*NSG, DH*NXT, 
DH**SZ, DH$*BS, 



i 



TSUSR 
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58 
59 
60 
6.1 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



GLOBL UACHKW, VALADB, VALADW 

GLOBL HANSIZ, HANENT, DEVSIZ, EMTPS 

GLOBL SYSCHN, LSTSL»CHNSI2 

GLOBL CURCP, R*CHN, R*XCHN, FS*PRO 

GLOBL $NOIN, LSW3, LDDEVX. CLDEVX, C1DEVX 

GLOBL ABORT, EMT ADR > USREMT, CSHHD, FCSLNK 

GLOBL FD**SZ, FC$SBL, CSHDEV, CSHDVN, Q. JNUM 

GLOBL Q. CSW, Q. FUNG, 0. UNIT, Q. JOB, 0. DEVX 

GLOBL VPAR6, 0. BUFF, 0. PAR, 0. WCNT, Q. COMP, Q. BLKN 

GLOBL Q. CHAW, SPUSR, S*GSPD, Q. UCSW, Q. ICSW 

GLOBL DF*LOK, DF*ENT, DF*DEL, DF*CLS, Q. PA6 

GLOBL OVRHC, IIMTPRI, PR7, PSW, LDPDEV, CLCLOS 

GLOBL USR JOB, SPDJOB, SPSI ZE, SPFLDV, SPFLNM, GETQ, 010 

GLOBL SDUPRN, UMODE, EMTPS, ODTBAS 

GLOBL CD*DVU, CD«BAS> CD$$SZ, LDBASE, CD$TGP 

GLOBL CD* JOB, CD**UB, CD*IMAM, LDNAME, NSPLDV 



TSUSR 
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( 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 000002 

31 002002 

32 002004 

33 002006 

34 002010 

35 002012 

36 002014 

37 002016 

38 002020 

39 002022 

40 002024 

41 002026 

42 002030 

43 002032 

44 002034 

45 002036 

46 002040 

47 002042 
43 002044 
49 

50 
5.1. 

52 002046 

53 002047 
54 

5 5 
56 
57 



000300 



177777 
OOOOOO 
000000 
OOOOOO 
OOOOOO 
OOOOOO 
075250 
015270 
075273 
1.00020 
177777 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



000 
000 



Macro definitions. 

. MACRO DISA13L 

BIS #PR7i ®#PSW 

. ENDM DISABLE 

. MACRO ENABL 

B1C INTPRI»@#PSW 

. ENDM ENABL 



;Disable interrupt processinj 



; Enable interrupt processing 



Macro definition for calling global routines residing in mapped system regions. 

. MACRO OCALL ENTADD 
. IF B, ENTADD 

.ERROR j OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 
. ENDC 

CALL OVRHC > CALL THE OVERLAY HANDLER 

.WORD ENTADD ; SPECIFY THE ENTRY POINT 

. ENDM 

Assembly parameters. 

USRUCA - 300 i USR-User communication area 



Buffer to hold a directory segment 
Number of segment currently in USRBUF 
Highest segment # used in directory 
Number of bytes per directory entry 
Number of directory segments available 
Block number of start of file 
Dev # in low byte, unit # in high byte 



# of times we have claimed usr 
Size of largest free slot found 
Address of entry in dir segment buffer 

# of directory segment with largest slot 
Size of second largest free slot found 
Address of entry in dir segment buffer 

# of dir segment with 2nd largest slot 
Size specified for file with ASSIGN 



; Dat 


a areas 




USRBUF 


. BLKW 


512. 


CURSEG 


. WORD 


~1 


DIRHIS 


. WORD 





DIRSIZ 


. WORD 





DIRNSG 


. WORD 





FILBLK 


. WORD 





FILDVU 


. WORD 





R50SY: 


. RAD 50 


/SY/ 


R50DK: 


. RAD50 


/DK/ 


R50SYS 


. RAD50 


/SYS/ 


R50TSX 


. RAD 50 


/TSX/ 


USRCNT 


. WORD 


-i 


L1SIZ 




. WORD 





LI OFF 




. WORD 





L1SEG 




. WORD 





L2SIZ 




. WORD 





L20FF 




. WORD 





L2SEG 




. WORD 





ASMS I 1 


. WORD 





s Byti 


? data 




CKADEV 


. BYTE 





CKAUN" 


r 


. BYTE 






Internal USR error checks. 

(Numbers correspond to KMON error table offsets) 



TSUSR 



" 


File operation 


58 


177762 


59 


177761 


60 


177760 


61 


177757 


62 


177756 


63 


177755 


64 
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UERR1 
UERR2 

UFRR3 
UERR4 
UERR5 
UERR6 

. EVEN 



Dec-87 


11 


-16 




-17 




-20 




-21 




-22 




-23 
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Can't find tentative file entry for file on close 

File length in chan block not = to len in file entry 

Highest block # written > file length 

Empty file entry doesn't follow tentative file entry 

Not tentative file entry during close 

Illegal or uninitialized directory 



i 
i 

i 
i 



TSUSR ■ 


— File 


operatio 


it Eft'T ' s 


USRINI - 

1 
2 
3 


— Initialization for US 








4 








5 








6 


002050 


010246 




7 
8 

9 


002052 


010346 










10 








11 
i '1 


002054 


012702 


015254' 


.1 ir. 

13 








14 








15 


002060 


1 0237 


OOOOOOG 


16 


002064 


013700 


0000000 


17 


002070 


010203 




18 


002072 


062703 


0000000 


19 


002076 


020327 


140000 


20 


002102 


101403 




21 


002104 


162703 


OOOOOOG 


22 


002110 


000406 




23 


002112 


010362 


0000000 


24 


002116 


005062 


OOOOOOG 


25 


002122 


010302 




26 


002124 


077017 




27 


002126 


162703 


OOOOOOG 


23 


002132 


005063 


OOOOOOG 


29 








30 








31 








32 


002136 


012603 




33 


002140 


012602 




34 


002142 


000207 
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. SBTTL USRINI — Initialization for USR module 



USRINI is called during &ystem initialization to perform data table 
allocation for the TSUSR module. 



USRINI: NOV 
MOV 



R2, -<SP) 
R3> -<SP) 



Allocate tables within this overlay segment above top of code 

MOV #USRTOP, R2 > Point above top of code in this segment 

Allocate file directory cache table 

; Set pointer to 1st free directory cache entry 
i Get # cache entries to allocate 
1*: MOV R2, R3 > Get address of current entry 

; Get address of next entry 

iWill current entry fit in overlay region? 
; Br if yes 
; No — Backup pointer to current entry 

2*: ' MOV R3, FC*LNK<R2> iMake current entry point to next one 

; Say entry is currently free 
iMake next entry be current one 
> Loop if more to allocate 

3*: SUB #FC**S2, R3 ; Point to last entry 

iMake its forward link zero 



MOV 


R2. CSHHD 


MOV 


VNFCSH, RO 


MOV 


R2, R3 


ADD 


#FC**SZ,R3 


CMP 


R3, #140000 


BLOS 


2* 


SUB 


#FC*$SZ, R3 


BR 


3* 


MOV 


R3» FC$LNK<R2> 


CLR 


FC*CDX(R2) 


MOV 


R3, R2 


SOB 


RO, 1* 


SUB 


#FC**S2, R3 


CLR 


FC*LNK<R3) 


F i n i s h e d 




MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





TSUSR — 
. ENTER 
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1 
2 
3 
4 

5 002344 

6 002350 
7 

S 
9 

10 002354 

11 002362 

12 002364 

13 002370 

14 002374 
15 

16 
17 

18 002400 

19 002404 

20 002406 

21 002414 



a. t.3 

24 
25 
26 
27 



004737 



032763 
001406 
004737 
012700 
000137 



10 5737 
00 1 404 

103074 



002416 
002424 

28 002426 

29 002434 

30 002436 

31 002444 

32 002450 
33 

34 
35 

36 002454 

37 002462 
38 

39 
40 
41 

42 002464 

43 002470 

44 002472 

45 002476 

46 002502 
47 

48 

49 002504 

50 

51 

\JtZm 

53 

54 002510 

55 002514 

56 002520 
57 



00 1 004 
032764 
001407 
052763 
012702 
000137 



032764 
001451 



013702 
001002 
013702 
004737 
103002 



. SBTTL . ENTER 
Open a new file. 



010237 
004737 
103004 



007362 ' 
OOOOOOG 



0000000 OOOOOOG 



ENTER: 



CALL 
CLR 



USRCOM 

URO 



i DO COMMON SETUP 

i FOR NOW, SAY FILE SIZE 







See if we have write access to the file. 



015214' 

177763 

015144' 



OOOOOOG 



BIT 

BEG 

CALL 

MOV 

JMP 



#CS*RON, C. CSW<R3);D0 WE HAVE WRITE ACCESS TO THE FILE? 



4* 

ERRNAM 
#-15, RO 
USRCLS 



BR IF YES 

SET NAME OF FILE FOR TSKMON ERROR MESSAGE 

SET ABORT CODE 

ABORT OPERATION 



See if it is a spooled device. 



4*: 



TSTB 
BEG 
OCALL 
BCC 



MSPLDV 
3* 

CHKSD 
9* 



.i Are there any spooled devices? 

; Br if not 

; Are we opening to a spooled device? 

; Br if this is a spooled device 



This is not a spooled device. 
See if this is a magnetic tape. 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

014010' 



3$: 



7*: 



BIT 
BNE 
BIT 
BEG 
BIS 
MOV 
JMP 



#DS$NRD, DVSTAT<R4); MAG TAPE TYPE DIRECTORY DEVICE? 

7* ; Br if yes 

#DX*NRD, DVFLAG<R4)i Internal flag set? 

5* ; BR IF NOT 

#CS*ENT, C. CSW<R3)jSET FLAG TO CAUSE TO CALL HANDLER ON CLOSE 

#DF$ENT> R2 ; GET CODE FOR ENTER 

SPLDIR ;G0 DO SPECIAL DEVICE ENTER 



See if this is a file structured device. 



OOOOOOG OOOOOOG 5*: 



BIT #DS*DIR, DVSTAT<R4>; FILE STRUCTURED DEVICE? 
BEG 9* ; Br if not file structured 



002044 ' 

000004G 
011324' 



000137 015144' 



This is a file structured device. 

Look for a free slot large enough for the file. 

WAS SIZE SPECIFIED WITH ASSIGN STATEMENT? 
BR IF YES 

GET REQUESTED SIZE FROM EMT ARG BLOCK 
6$: CALL FNDFRE ; TRY TO FIND A FREE SLOT 

BR IF FOUND ONE 
Error: Can't find a free slot or protected file exists with same name. 
(Error code is returned in RO by FNDFRE. ) 
JMP USRCLS 

Do h r» •-. / n £ rv 1 1 *** A s, .£ -r*. r-% r\ *•*!#» -I 
t *■ \~ 1 1 i-rf * i., i uwnu u i * c f ;> jt w» w » 

Create a tenative file entry. 



MOV 


ASNSIZ, R2 


BNE 


6* 


MOV 


EMTBLK+4, R2 


CALL 


FNDFRE 


BCC 


1* 



OOOOOOG 
0.12026' 



MOV R2, URO 
CALL ADDENT 
BCC 2* 
Error: Directory overflow 



RETURN FILE SIZE IN USER'S RO 
CREATE A TENTATIVE FILE ENTRY 
BR IF WE WERE SUCCESSFUL 
Return error code 1. 
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rsusR - 


— File 


o p e r a t i t 


n EliT ' s 


ENTER 








58 


002522 


012700 


000001 


59 


002526 


000137 


015144' 


60 








61 








62 








63 


002532 


013703 


0000000 


64 


002536 


013700 


002002 ' 


65 


002542 


000300 




66 


002544 


052700 


0000000 


67 


002550 


050063 


0000000 


68 


002554 


010263 


0000000 


69 


002560 


004737 


013420' 


70 


002564 


010002 




71 








72 








73 








74 


002566 


004737 


013254' 


75 








76 








77 








78 


002572 


004737 


013706' 


79 








80 








01 








82 


002576 


010263 


0000000 


83 


002602 


005063 


0000000 


84 








85 








86 








87 


002606 


000137 


015172' 



MOV 

JMP 



#1, RO 
USRCLS 



; SET ERROR CODE 
i ABORT ENTER 



2$: 



MOV 


CHNADR, R3 


MOV 


CURSEG, RO 


SWAB 


RO 


BIS 


#CS$ ENT, RO 


BIS 


RO, C. CSW<R3> 


MOV 


R2, C. LENG<R3> 


CALL 


SBCALC 


MOV 


RO, R2 



Set up info in channel about file. 

i ADDRESS OF CHANNEL BLOCK 

i CURRENT DIRECTORY SEGMENT # 

; POSITION SEO # TO LEFT BYTE 

; REMEMBER WE ARE DOING AN ENTER 

; SET UP CSW 

; SET UP ALLOCATED LENGTH OF FILE 

; CALCULATE STARTING BLOCK # OF FILE 

; SAVE STARTING BLOCK NUMBER OF FILE 

Give user a chance to diddle with directory entry. 

CALL DIDDLE ; ALLOW USER TO DIDDLE WITH DIRECTORY ENTRY 

Write out the directory segment. 

CALL WRTSEG > WRITE OUT UPDATED DIRECTORY SEGMENT 

Set up file starting block number in channel 



MOV 
CLR 

Finished 

9*: JMP 



R2> C. SBLK<R3) 
C. USED(R3) 



USRXIT 



i SET FILE STARTING BLOCK NUMBER IN CHANNEL 
■> SAY NO BLOCKS WRITTEN TO FILE YET 



TSUBR — 
. RENAME 

1 

D 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

WW 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
^1 

w A 

52 
53 
54 
55 
56 
57 



00 
00 
00 
00 



3616 

3624 
^626 
?632 



00 
00 



3636 

2644 



002646 
002652 
002654 
002660 

002664 
002666 
002670 
002674 



002702 
002706 
002712 
002716 
002722 
002726 
002730 
002734 
002740 



002744 

002756 
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. SBTTL . RENAME 
Rename a file. 
RENAME: CALL USRCOM ; DO COMMON SETUP 

See if this is a file structured device. 



002612 004737 007362' 



032764 
001004 
012700 
000137 



032763 
001063 



0000000 000000G 

000002 
015144' 



0000000 000000G 1*: 



BIT 
BNE 
MOV 
JMP 



#DS*DIR, DVSTAT<R4); FILE STRUCTURED DEVICE? 

1* i BR IF YES 

#2, RO i INVALID OPERATION 

USRCLS 



Make sure we have write access to old file. 

BIT #CS*RON, C. CSW<R3)i DO WE HAVE WRITE ACCESS TO OLD FILE? 

BNE 11* ; BR IF NOT 

Locate directory entry with old name. 

(Note: FILSPC currently contains old file name) 



004737 
103004 
012700 
000137 

010146 
010105 
013746 

010446 



011242' 

000001 
015144' 



002002 ' 



CALL 
BCC 
MOV 
JMP 



FNDFIL 
2* 

#1, RO 
USRCLS 



LOOK UP THE ENTRY 
BR IF FOUND 
FILE NOT FOUND 



Save info about old file entry. 



2$: 



MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
Rl, R5 

CURSEG, -<SP) 
R4, -(SP) 



ADDRESS OF ITS DIRECTORY ENTRY 

CARRY ADDR OF DIR ENTRY IN R5 FOR A WHILE 

SEGMENT NUMBER CONTAINING ENTRY 

DEVICE TABLE INDEX 



Remove old file entry from directory cache. 



002676 004737 014616' 



CALL CSHDEL 
Set up new file spec. 



013701 
042701 
062701 
004737 
004737 
103006 
004737 
012700 
000137 



004737 
032763 
001016 



000002G 
000001 
000010 
007532 ' 
010212' 

015214' 

177776 

015144' 



010566 



MOV 


EMTBLK+2, Rl 


BIC 


#1, Rl 


ADD 


#10, Rl 


CALL 


GETSPC 


CALL 


CHKDEV 


BCC 


3* 


CALL 


ERRNAM 


MOV 


#-2, RO 


JMP 


USRCLS 



; DELETE FILE ENTRY FROM CACHE TABLE 



ADDRESS OF FILE SPEC AREA 

MAKE SURE ADDRESS IS EVEN 

POINT TO NEW FILE SPEC 

MOVE DEVICE-FILE SPEC TO FILSPC 

MAKE SURE DEVICE IS LEGAL 

BR IF OK 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

ILLEGAL DEVICE 



Make sure user is authorized to access to new file. 
3*: CALL 

1DTT 

BNE 



CHKACC ;SEE IF USER IS AUTHORIZED FOR ACCESS 

urctanki r- rm.i / ar> \ ■ to i iocd AiiTunoT7cn tt» i.ipttf to MFU PT! P - ^ 

11$ ; BR IF NOT 



Make sure device and unit match that of old file. 
R4 -- Device table index for new file. 
RO = : Device unit number for new file. 



« 
i 



TSUSR • 

. RENAME 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 

75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



File operation EMT's MACRO V05. 04 



002760 
002762 
002764 
002766 
002772 
002776 
003002 



003004 
003012 
003014 
003020 
003024 



003030 

003036 
003044 
003052 
003054 



003060 
003064 



003066 
003074 



003076 
003100 
003104 
003106 
003114 
003122 
003126 
003132 



003136 
003142 



003150 

003154 
003156 



020426 
001405 
022626 
012700 
000137 
120063 
001370 



000002 

015144' 

OOOOOOG 



5*: 



4$: 



i clay 


18 


~Dec-S7 15: 35 


CMP 




R4, <SP) + 


BEQ 




4* 


CMP 




<SP)+, (3P> + 


MOV 




#2, RO 


JMP 




USRCLS 


CMPB 




RO, C. DEVQ<R3> 


BNE 




5* 



Page 6-1 



; COMPARE DEVICE INDEX NUMBERS 

; BR IF OK 

■> CLEAN OFF STACK 

; INVALID OPERATION 

i DO UNIT NUMBERS MATCH? 
i BR IF DON'T MATCH 



Make sure we have write access to new file. 



032763 OOOOOOG OOOOOOG BIT 

001406 BEG 

004737 01 52 14-' 11$: CALL 

012700 177763 MOV 

000137 015144' JMP 



#CS*RON, C. CSW(R3>; DO WE HAVE WRITE ACCESS TO NEW FILE? 



10$ 

ERRNAM 
#-15, RO 
USRCLS 



BR IF YES 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

SET ABORT CODE 

ABORT THE OPERATION 



042765 

052765 
023727 
001402 
004737 



004737 
103442 



032761 
001420 



012600 
004737 
012601 
042761 
052761 
004737 
012700 
000137 



004737 
012761 



023716 
001002 
t 2600 



OOOOOOG 
OOOOOOG 
002002 ' 

013706' 



011241 



OOOOOOG 
OOOOOOG 
000001 



Delete any existing file with new file name. 

Temporarily mark old filp entry as empty so we won't find it when 

searching for file that has same name as new file. 

Note that this is safe since the UBR is locked and noone else can 

access the directory. 
10*: BIC #FS*PRM> FD*STA(R5>; CLEAR PERMANENT-FILE STATUS FLAG 

#FS*EMP, FD*STA<R5)i SET EMPTY-FILE STATUS FLAG 
CURSEG, #1 i IS THIS DIR ENTRY IN SEGMENT # 



.12* 



: BIC 

BIS 

CMP 

BEQ 12* ; BR IF YES — IT WILL NOT 

CALL WRTSEG > WRITE OUT MODIFIED ENTRY 

Try to locate directory entry for file being deleted. 
(Note: FILSPC now contains new file name) 

CALL FNDFIL > LOOKUP NEW FILE NAME 



BE 
SO 



1? 
REREAD 
FNDFIL 



BY FNDFIL 
WILL READ 



IT 



BC 



9* 



BR IF DON'T NEED TO DELETE 



File with new name already exists. 
See if it is protected. 



OOOOOOG OOOOOOG 



File 
Rest 



013570' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
013706' 
000003 
015144' 



014616' 
OOOOOOG OOOOOOG 

002002 ' 



i File 

> Remo 
13*: 

.! Mark 

> See 

i If i 



BIT 
BEQ 
is p 

ore f 
MOV 
CALL 
MOV 
BIC 
BIS 
CALL 
MOV 
JMP 
i s n 

v e i t 
CALL 
i t s 
MOV 

if th 

t is, 
CMP 
BNE 
MOV 



#FS*PRO, FD*STA<Ri>; IS FILE PROTECTED? 

13$ i BR IF NOT 

rotected so we cannot delete it. 
ile status word for old file then return error code 3 for rename. 

<SP)+, RO ; GET DIR SEG # FOR OLD FILE ENTRY 

RDSEG > READ IN THE SEGMENT 

<SP)+, Rl ; GET ADDRESS OF DIR ENTRY IN SEGMENT 

#FS*EMP, FD*STA(Rl)i CLEAR EMPTY-FILE FLAG 

#FS*PRM, FD*STA(Rl)i SET PERMANENT-FILE FLAG 

WRTSEG ; REWRITE THE DIR SEGMENT 

#3, RO ; RETURN ERROR CODE 3 

USRCLS 
ot protected. 
s entry from directory cache. 

CSHDEL ; DELETE FILE ENTRY FROM CACHE TABLE 



onfi 



■-,(.• •• 



#FS*EMP,FD*STA<R1); FILE IS NOW DELETED 
is entry is in same directory segment as the file being renamed. 
bypass the consolidation & rewrite. 

CURSEG, <SP) j IS DELETED FILE ENTRY IN SAME SEG AS RENAMED ENTRY? 

6* ; BR IF NOT 

<SP)+, RO ; POP SEGMENT NUMBER 



i 
t 
< 
f 

< 
( 
I 
I 

I 

< 
< 
€ 
4 
I 
< 






TSUSR — File operation EMT ' s MACRO V05. 04 Friday 18-Dec-87 15:35 Page 6-2 
. RENAME 



« 



115 


003160 


000407 






116 






t 


117 


003162 


004737 


012634 ' 6$: 


118 


003166 


004737 


013706' 


119 










120 










121 










122 


003172 


012600 


9$: 


123 


003174 


004737 


013570' 


124 


003200 


012601 


7$: 


125 


003202 


042761 


0000000 0000000 


126 


003210 


052761 


0000000 0000000 


127 


003216 


010105 




128 


003220 


062705 


0000000 


129 


003224 


012702 


0000020 


130 


003230 


012225 




131 


003232 


012225 




132 


003234 


011215 




luJ 






• 


134 






t 


135 






J 


136 


003236 


004737 


013254' 


137 










138 










139 










140 


003242 


004737 


014466' 


141 








142 










143 










144 


003246 


004737 


012634' 


145 


003252 


004737 


013706' 


146 










147 










148 










149 


003256 


005063 


0000000 


150 


003262 


000137 


015172' 





BR 7* J GO FILL IN NEW NAME 

Consolidate & rewrite seqment with deleted file entry. 

CALL CONSOL ; CONSOLIDATE DIRECTORY SEGMENT 

CALL WRTSEG * WRITE IT OUT 

Now change the name in the old file entry. 



MOV 

CALL 

MOV 

BIC 

BIS 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 



<SP)+,RO i GET DIRECTORY SEGMENT # 

RDSEG i READ IN THE SEGMENT 

<5P)+,R1 J GET ADDRESS OF ENTRY WITHIN SEGMENT 

#FS*EMP,FO*STA<Rl)i CLEAR EMPTY-FILE FLAG 

#FS$PRM, FD$STA<R1>; SET PERMANENT-FILE FLAG 



Rli R5 

#FD*NAM.. R5 
#FILSPC+2, RS 
(R2)+, (R5) + 
<R2)+, <R5) i- 
<R2), <R5) 



GET ADDRESS OF DIR ENTRY BEING RENAMED 
POINT TO FILE NAME AREA IN ENTRY 
POINT TO NEW FILE NAME 
MOVE IN NEW NAME 



Give user a chance to diddle with the dir entry if he wishes. 

CALL DIDDLE ; ALLOW USER TO DIDDLE 

Add new file entry to cache table. 

CALL CSHADD ; ADD NEW FILE ENTRY TO CACHE TABLE 

Consolidate and rewrite directory segment. 



CALL 
CALL 

F i n i s h e d 

CLR 

JMP 



CONSOL 
WRTSEG 



C. CSW(R3) 
USRXIT 



; CONSOLIDATE DIRECTORY SEGMENT 
; WRITE IT OUT 



I PURGE THE CHANNEL 



TSUSR ~ "lis 
. DELETE 



operation EiTT" ■' s MACRO V05. 04 Friday lS-Dec-87 1 J3 : 3 L > Page 7 

. SBTTL . DELETE 

; Delete a permanent fi! e entry. 

DELETE: CALL USRCOM > DO COMMON SETUP 

See if we have write access to file being deleted. 

BIT #CS*RON, C. CSW(R3);D0 WE HAVE WRITE ACCESS TO FILE? 

BEG 2* > BR IF YES 

CALL ERRNAM > SET FILE SPEC FOR TSKMON ERROR MESSAGE 

MOV #-15, RO ; SET ABORT ERROR CODE 

JMP USRCLS ; ABORT THE OPERATION 

See if device is a ma cine tic tape. 



3 










4 










5 


003266 


004737 


007362 ' 




6 










7 










8 










9 


003272 


032763 


OOOOOOG 


OOOOOOG 


10 


003300 


001406 






11 


003302 


004737 


015214' 




12 


003306 


012700 


177763 




13 


003312 


000137 


015144' 




1 4 










15 










16 










17 


003316 


032764 


OOOOOOG 


OOOOOOG 


IS 


003324 


001004 






19 


003326 


032764 


OOOOOOG 


OOOOOOG 


20 


003334 


00 1 404 






2.1 


003336 


012702 


OOOOOOG 




22 


003342 


000137 


014010' 




23 










24 










25 










26 


003346 


032764 


OOOOOOG 


OOOOOOG 


27 


003354 


001004 






28 










29 










30 










31 


003356 


012700 


000002 




32 


003362 


000137 


015144' 




33 










34 










35 










36 


003366 


004737 


011242' 




37 


003372 


103425 






38 










39 










40 










41 


003374 


032761 


OOOOOOG 


OOOOOOG 


42 


003402 


001404 






43 


003404 


012700 


000003 




44 


003410 


000137 


015144' 




45 










46 










47 










48 


003414 


004737 


014616' 




49 










50 










51 










52 


003420 


012761 


OOOOOOG 


OOOOOOG 


53 










54 










55 










56 


003426 


004737 


012634' 




57 


003432 


004737 


013706' 





2*: 



6*: 



BIT 
BNE 
BIT 
BEQ 

MOV 
JMP 



#DS*NRD, DVSTAT(R4); IS THIS A MAG TAPE DEVICE? 

6* i Br if yes 

#DX*NRD> DVFLAG<R4); Internal flag set? 

5* ; BR IF NOT 

#DF*DEL> R2 * SET DELETE FUNCTION CODE 

SPLDIR ; DO SPECIAL DEVICE DELETE 



5*: 



See if this is a file structured device. 

BIT #DS*DIR,DVSTAT<R4>; IS THIS A DIRECTORY STRUCTURED DEVICE? 

BNE 1* ; BR IF YES 

Delete is invalid on non-f i 1 e-struc tured device. 



MOV 

JMP 



#2, RO 
USRCLS 



; RETURN INVALID-OPERATION ERROR CODE 



Try to locate directory entry for file being deleted. 



1*: 



CALL 
BCS 



FNDFIL 

9* 



i LOOK UP THE FILE 

;BR IF FILE DOES NOT EXIST 



See if file is protected. 



BIT #FS*PR0>FD*STA<R1); IS FILE PROTECTED? 

BEQ 3* i BR IF NOT 

MOV #3, RO i RETURN ERROR CODE 3 IF FILE IS PROTECTED 

JMP USRCLS 

> Remove file entry from directory cache. 

3*: CALL CSHDEL ; REMOVE FILE ENTRY FROM DIRECTORY CACHE 

* File exists. Mark i tr> entry as empty. 

MOV #FS*EMP,FD*STA<R1); MARK DIR ENTRY AS EMPTY 

■> Consolidate and rewrite the directory segment. 



CALL 
CALL 



CONSOL 
WRTSEG 



i CONSOLIDATE THE SEGMENT 
; WRITE SEGMENT TO DISK 
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. DELETE 



58 
59 
60 

61 003436 005063 0000006 

62 003442 000137 015172' 
63 

64 
65 

66 003446 012700 000001 

67 003452 000137 015144' 



; F i n i shed 




CLR 


C. CSW<R3> 


JMP 


USRXIT 


; F i 1 e d o e s 


not exist. 


9$ : MOV 


#1, RO 


JMP 


USRCLS 



i PURGE THE CHANNEL 



i FILE DOES NOT EXIST 



TSUSR 
. CLOSE 
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3 
4 

5 003456 

6 003462 

7 003470 

8 003472 
9 

10 

11 

12 003476 

13 

14 

15 

16 003502 

17 003510 
IS 003512 
19 003520 
20 



23 003524 

24 003530 

25 003534 

26 003542 

27 003544 

28 003552 

29 003554 

30 003560 
31 

32 
33 

34 003564 

35 003570 

36 003572 
37 

38 
39 

40 003576 

41 003604 
42 

43 

44 

45 

46 003606 

47 

48 

49 

50 003612 

51 003620 

52 003624 

53 003630 
54 

55 
56 
57 003634 



. SBTTL . CLOSE 
Close? a channel. 



013703 
032763 
00 1 002 
000137 



OOOOOOG 
OOOOOOG OOOOOOG 

004202 ' 



CLOSE: MOV 
BIT 
BNE 
JMP 



CHNADR, R3 ; GET ADDRESS OF CHANNEL BLOCK 
#CS*OPN, C. CSW<R3>; IS THE CHANNEL OPEN? 
7* i BR IF CHANNEL IS OPEN 

10* ;NOP IF NOT OPEN 



004737 OOOOOOG 



032763 
001405 



OOOOOOG OOOOOOG 



000137 004176' 



1 6300 
042700 
032760 
001004 
032760 
001404 
012702 
000137 



005737 
001402 
004777 



032763 
001574 



OOOOOOG 
OOOOOOC 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
014010' 



OOOOOOG 
OOOOOOG 



Wait for all I/O to finish on this channel 

7$: CALL IOWAIT ;WAIT FOR ALL I/O ON CHANNEL TO FINISH 

See if we are closing a spooled device. 

BIT #CS*SPL,C. CSW<R3>; IS THIS A SPOOLED DEVICE CHANNEL? 

BEG 1* ; BR IF NOT 

OCALL SDCLOS ; CLOSE A SPOOLED DEVICE CHANNEL 

JMP 9* 

See if device being closed is a magnetic tape. 

1*: MOV C.CSW<R3),R0 ; GET CSW 

BIC #-C<CS*NMX>, RO i MASK OUT ALL BUT DEVICE TABLE INDEX 

BIT #DS*NRD, DVSTAT<RO>; IS DEVICE A MAG TAPE? 

BNE 18$ .; Br if yes 

BIT #DX*NRD, DVFLAG<RO>; Internal flag set? 

BEG 6* ; BR IF NOT 

18*: MOV #DF*CLS, R2 ; DO SPECIAL DEVICE CLOSE 

■JMP SPLDIK 



See if we are closing a shared file. 



6*: 



TST 


JCDB 


BEQ 


17* 


CALL 


©SFCLS 



Does job have any shared file chans open? 

BR IF NOT 

CHECK FOR CLOSING A SHARED FILE 



See if this file was opened with a .LOOKUP or .ENTER 



i 

i 
i 

4 
« 



OOOOOOG OOOOOOG 17*: 



BIT #CS*ENT, C. CSW<R3>; DID WE DO A .ENTER ON THE CHANNEL? 

BEQ 9* i BR IF NOT 



004737 007770 ' 



116337 OOOOOOG 002015' 

016300 OOOOOOG 

042700 OOOOOOC 

110037 002014' 



005063 OOOOOOG 



We are closing a new file on a directory structured device. 
Gain exclusive access to USR data base. 

CALL GETUSR i CLAIM EXCLUSIVE ACCESS TO USR 

Set up device # and unit # in FILDVU. 



MOVB 
MOV 
BIC 
MOVB 



C. DEVQ(R3), FILDVU+liSET UNIT # 



C. CSW<R3>, RO 
# A C<CS*NMX>» RO 
RO, FILDVU 



GET CHANNEL STATUS WORD 

MASK OUT ALL BUT DEVICE INDEX # 

SET DEVICE INDEX # 



Set up info about this directory 

CLR C. SBLK<R3) ; SAY CHANNEL BEING USED FOR DIRECTORY OP 



TSUSR 
. CLOSE 



— File 
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58 
59 
60 
6.1 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



003640 
003646 



003652 
003656 
003662 
003664 
003670 
003674 
003700 
003704 
003706 
003712 
003714 



003724 
003726 
003732 
003736 
003740 
003742 

003744 
003746 



003752 
003756 



042763 
004737 



016300 

042700 

000300 

004737 

013702 

012700 

004737 

103540 

120261 

001370 

123761 

00 1 36*1 



010102 
062702 
012704 
012224 
1 2224 
011214 

010146 
013746 



004737 
103416 



003760 004737 



003764 012761 



OOOOOOC OOOOOOG 

013454' 



0000000 
160377 

013570' 
0000000 
OOOOOOG 2$ 

013166' 

0000000 
OOOOOOG OOOOOOG 



BIC #<CS*EOF!CS*ERR>, C. CSW(R3) s IGNORE PRIOR ERROR 
CALL RDSEG1 ; READ SEG1 AND SET DIRSIZ 



Find the tentative file entry. 



OOOOOOG 
0000020 



003772 
003776 
004000 
004002 
004004 
004010 
004014 
004016 



004024 
004032 
004034 
004042 
004046 
004052 
004054 



023716 
00 1 002 
005726 
000407 
004737 
00473/ 
012600 
004737 013570' 



002002 ' 

011242' 

014616' 

OOOOOOG OOOOOOG 
002002 ' 



MOV 
BIC 
SWAB 
CALL 
MOV 
MOV 
CALL 
BCS 
CMPB 
BNE 
CMPB 
BNE 
Found the 
Save the f 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
Remember 
MOV 
MOV 



GET CHANNEL STATUS WORD 

GET DIRECTORY SEGMENT # WITH TENTATIVE ENTRY 

RIGHT-JUSTIFY SEG # 

READ IN THAT SEGMENT 

GET OUR CHANNEL # 

FIND NEXT TENTATIVE FILE ENTRY 

i BR IF CAN'T FIND TENTATIVE FILE ENTRY 

i IS THIS ENTRY FOR RIGHT CHANNEL? 

i BR IF NOT 

); IS THIS FILE FOR RIGHT JOB? 

i BR IF NOT 
y. 



C. CSW(R3), RO 

# A C<17400>, RO 

RO 

RDSEG 

CHNNUM, R2 

#FS*TEN, RO 

GETDIR 

11* 

R2, FD*CHN<R1> 

2* 

CORUSR, FD*J0B<R1 

tentative file entr 
ile name in FIL.SPC. 
Rl, R2 

#FD*NAM, R2 
#FILSPC+2, R4 
(R2)+, <FM) + 
<R2>+, <R4) + 
<R2>, (R4) 
the position of the tentative file entry. 
Rl, -<SP) 
CURSEG, -<SP) 



ADDRESS OF TENTATIVE FILE ENTRY 

POINT TO NAME IN ENTRY 

SAVE THE NAME HERE 

SAVE FILE NAME IN FILSPC 



Delete any permanent file entry that has the same nam 



e as the new file. 



012634' 
013706' 



3* 



CALL 
BCS 

Delete old 
CALL 

Mark old f 
MOV 

Consolidat 
CMP 
BNE 
TST 
BR 
CALL 

MOV 
CALL 



FNDFIL 

5* 
file entry 

CSHDEL 
ile as dele 

#FS*EMP, 
e and reuri 

CURSEG, < 

3* 

<SP) + 

4* 

CONSOL 

WRTSEG 

<SP)+, RO 

RDSEG 



i SEARCH FOR PERM FILE ENTRY WITH THIS NAME 

;BR IF NO PERM FILE ENTRY WITH SAME NAME 
from directory cache. 

i DELETE OLD FILE ENTRY FROM DIRECTORY CACHE 
ted. 

FD*S1A(R1); CHANGE OLD FILE ENTRY TO BE EMPTY 
te old segment unless it is same as one with new entry 
SP) ; IS OLD SEG SAME AS NEW ONE? 

; BR IF NOT 

i POP NEW SEG # 



CONSOLIDATE THE OLD SEGMENT 
WRITE OUT THE OLD SEGMENT 
GET # OF NEW SEGMENT 
READ IT IN 



Convert tentative file entry to permanent. 



012601 
032761 
001501 
012761 
016102 
020263 
001060 
1 6300 



4*: 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



MOV 
BIT 
BEG 
MOV 
MOV 
CMP 
BNE 
MOV 



<SP)+, Rl ;GET ADDRESS OF TENTATIVE FILE ENTRY 

#FS*TEN, FD*STA(Rl)j MAKE SURE WE'RE POINTING TO TENTATIVE ENTRY 

15* > BAD ERROR IF NOT 

#FS*PRM, FD*STA<R1>; SET ITS TYPE TO PERMANENT FILE 



FD*LEN<R1),R2 

R2.C. LENG(R3) 

12* 

C. USED<R3)>R0 



GET ALLOCATED SIZE OF FILE 

MAKE SURE FILE LENGTHS AGREE 

BAD ERROR IF NOT 

GET # BLOCKS ACTUALLY USED IN FILE 



TSUSR - 
. CLOSE 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
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004060 

004064 
004066 
004070 
004072 
004076 
004104 
004106 

004112 
004116 
004122 
004126 
004130 
004136 
004142 
004146 
004152 



004162 
004166 



004206 
004212 

004214 
004220 



004230 
004234 

004236 
004242 



010061 
020002 
101055 
160002 
063701 
032761 
00145:1 
060261 

163701 
005061 
005761 
001013 
013761 
013704 
013705 
071437 
010461 



004737 
004737 



012700 
000413 

012700 
000410 

012700 
000405 

012700 
000402 

012700 
000137 



0000000 



002006 ' 
OOOOOOG 

0000000 

002006 ' 
0000000 
0000000 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



004156 004737 014466' 



012634' 
013706' 



004172 004737 010132' 



004176 00 5063 OOOOOOG 



004202 000137 OOOOOOG 



177762 



177761 



177760 



177757 



177756 
015202' 



OOOOOOG 



OOOOOOG 



110V 
CMP 
BHI 
SUB 
ADD 
BIT 
BEQ 



SET THIS AS THE ACTUAL FILE LENGTH 

MAKE SURE HIGHEST BLOCK NOT ABOVE FILE LENGTH 

ERROR IF TOO BIG 

GET # BLOCKS LEFT OVER 

POINT TO EMPTY FILE ENTRY THAT FOLLOWS 
#FS*EMP, FD*STA<R1); MAKE SURE THIS REALLY IS AN EMPTY ENTRY 
14* ; BAD ERROR IF NOT 



RO, FD*LEN<RJ ) 
RO, R2 
13* 
RO, R2 
DIRSIZ, Rl 



ADD R2, FD*LEN(R1 ) > ADD RESIDUAL BLOCKS TO EMPTY ENTRY 
Set date and time of file creation in file directory entry. 



SUB 
CLR 
TST 
BNE 
MOV 
MOV 
MOV 
DIV 
MOV 



DIRSIZ, Rl 
FD*TIM(R1> 
FD*DAT(R1> 
16* 



; POINT BACK TO NEW DIRECTORY ENTRY 
; SAY CREATION TIME UNKNOWN 
;DID DIDDLE ROUTINE SET FILE DATE? 
; BR IF YES 



SYSDAT, FD*DAT<R1 > ; SET DATA THAT FILE WAS CREATED (CLOSED) 



5YTIMH, R4 

SYTIML, R5 

TK3SVL, R4 

R4* FD*TIM(R1) 
; Add entry for new file to directory cache. 
16*: CALL CSHADD i ADD TO CACHE TABLE 

; Consolidate and rewrite the directory segment. 



GET CURRENT TIME OF DAY (HIGH ORDER) 
GET LOW-ORDER TIME OF DAY 
CONVERT TO 3-SECOND UNITS 
SET TIME OF FILE CREATION 



CALL 
CALL 



CONSOL 
WRTSEG 



; Ft re the USR 

CALL FREUSR 
i 

i Mark the channel as closed. 
.■ 
9*: CLR C. CSW<R3) 

; Finished 

i 

10*: JMP EMTXIT 

> Consistency check errors --- 



i CONSOLIDATE THE DIRECTORY 
; WRITE OUT THE SEGMENT 



; RELEASE USR DATA BASE 



; SAY THE CHANNEL IS CLOSED 



May indicate hardware errors or bugs. 



; Can't find tentative file during close. 
11*: MOV #UERR1,R0 

BR 20* 
i File size in channel block doesn't agree with size in directory entry. 
12*: MOV #UERR2, RO 

BR 20* 
; Highest block # written is greater than file length. 
13*: MOV #UERR3, RO 

BR 20* 
; Empty file entry does not follow tentative file entry. 
14*: MOV #UERR4, RO 

BR 20* 
; Not pointing to tentative file entry during close. 
15*: MOV " #UERR5, RO 
20*: JMP UABORT ; GIVE FATAL ABORT 



TSUSR — 
. DSTATUS 
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. SBTTL . DSTATUS 
.DSTATUS — Determine device status. 



3 








4 








5 


004246 


004737 


007770 ' 


6 








7 


004252 


013701 


0000000 


S 

9 

10 


004256 


004737 


007532" 


004262 


004737 


010212' 


11 
12 
13 


004266 


103003 




004270 


005000 




14 


004272 


000137 


015156' 


15 








16 








17 








IS 








19 








20 


004276 


010005 




21 


004300 


013700 


0000040 


22 


004304 


010037 


0000000 


23 


004310 


004737 


0000000 


24 


004314 


016446 


0000000 


25 


004320 


106620 




26 


004322 


016446 


0000000 


27 


004326 


106620 




28 


004330 


016446 


0000000 


29 


004334 


.1.06620 




30 


004336 


016446 


0000000 


31 


004342 


106620 




32 








33 








34 








35 


004344 


020437 


0000000 


36 


004350 


00 1 004 




37 


004352 


006305 




38 


004354 


016546 


0000000 


39 


004360 


106640 




40 








41 








42 








43 


004362 


000137 


015172' 



DSTAT: CALL GETUSR ; GET EXCLUSIVE ACCESS TO USR DATA BASE 
i Move device name to F1LSPC buffer and perform any assigns. 

MOV URO, Rl i POINT TO DEVICE SPEC 

CALL GETSPC ; MOVE TO FILSPC BUFFER 
i Look up device in perm name table. 

CALL CHKDEV > LOOK UP THE DEVICE NAME 

BCC 1* ; BR IF FOUND 
> Invalid device name 

CLR RO i SET ERROR CODE 

JMP USRERR 

Valid device. 

Return info about it. 

<R4 now has device table index) 



1$: 



MOV 

MOV 

MOV 

CALL 

MOV 

MTPD 

MOV 

MTPD 

MOV 

MTPD 

MOV 

MTPD 



CARRY UNIT NUMBER IN R5 

GET POINTER TO USER'S RESULT AREA 

RETURN POINTER TO RESULT IN RO 

VALIDATE THE ADDRESS 

DEVICE STATUS WORD 



RO, R5 

EMTBLK+4, RO 

RO, URO 

VALADW 

DVSTAT<R4>* --C3P) 

<R0> + 

HANSIZ<R4),~<SP>i HANDLER SIZE 

<R0> + 

HANENTCR4), -<SP>* HANDLER ENTRY POINT 

<R0) + 

DEVSIZ(R4), ~<SP);DEVICE SIZE 

<R0) + 



If this is a logical disk, return file size as device size 

IS THIS A LOGICAL DISK? 

BR IF NOT 

CONVERT UNIT # TO WORD TABLE INDEX 

GET LOGICAL DISK SIZE 

PASS TO USER 



i FINISHED 





CMP 


R4, LDDEVX 






BNE 


2* 






ASL 


R5 






MOV 


LDSIZE(R5), 


~<SP> 




MTPD 


-<R0) 






F i n i h h e d 






2*: 


JMP 


USRXIT 





TSUSR - 


— File 


. FETCH 




1 




2 




3 




4 




5 




6 




7 


004366 


8 




9 




10 




11 


004372 


12 


004376 


13 




14 




15 




16 


004402 


17 


004406 


18 




19 




20 




21 


004410 


22 


004412 


&. w 




24 




25 




tz-O 




27 


004416 


28 


004422 


29 


004424 


30 


004430 


31 


004434 
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004737 007770 ' 



013701 0000000 
004737 007532 ' 



004737 010212' 
103003 



005000 

000137 015156' 



013700 0000040 

005200 

042700 000001 

010037 0000000 

000137 015172' 



SBTTL 



FETCH 



. FE'ICH EMT.. This is basically a NOP under TSX-Plus since all device 
handlers are permanently resident. However* we do check to make sure 
the device is installed. 

FETCH: CALL GETUSR ; Oet exclusive access to USR data base 

Movf? device name to FILSPC buffer and perform any assigns 



MOV 

CALL 



URO, Rl 

GETSPC 



iPoint to device spec 
; Move to filspc buffer 



Look up device in perm name table 



CALL 
BCC 



CHKDEV 

1* 



Invalid device 



CLR 
JMP 



RO 
USRERR 



;Lool< up the device name 
; Br if found 



; Set error code = O 
■> Return with error 



The device name is valid. 

Return handler load address to user in RO. 



1*: 



MOV 
INC 
BIC 
MOV 

JMP 



EMTBLK+4, RO 

RO 

#1, RO 

RO, URO 

USRXIT 



; Oet user's load address 

; Round up 

; And force to even address 

; And return as top of handler 

j Exit from EMT 



TSUSR — File operation EMT's 
. SFDAT, . SF1TM, & . FPROT 
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. SBTTL .SFDAT, . SFilM, & .FPROT 






2 

4 

5 004440 

6 004444 

7 004450 

8 004454 

9 004456 

10 004462 

11 004466 
12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 004472 

cD 

29 

30 

31 004476 

32 

33 

34 

35 004502 

36 004506 
37 

38 
39 
40 

41 004512 

42 004516 

43 004522 

44 004530 
45 

46 
47 
48 

49 004532 

50 004536 

51 004542 

52 004546 

53 004550 

54 004554 

55 004556 

56 004562 

57 004566 



004737 
004737 
013700 
00 1 002 
013700 
016105 
010061 



004737 
004737 
013761 
000760 



004704 ' 
004754' 

0000040 

0000000 
OOOOOOG 
0000000 



004737 014466' 



004737 013706' 



005063 0000000 
000137 015172' 



» . SFDAT ■-- 

SFDATE: CALL 
CALL 
MOV 
BNE 
MOV 

1*: MOV 
MOV 



Set date in file entry 



SFCOM 

SFWRIT 

EMTBLK+4, RO 

1* 

SYSDAT, RO 

FD$DAT<R1),R5 

RO, FD$DAT(R1 ) 



LOCATE FILE ENTRY 

MAKE SURE WE HAVE WRITE ACCESS 

GET SPECIFIED DATE VALUE 

BR IF DATE SPECIFIED 

USE CURRENT DATE 

SAVE OLD FILE DATE 

SET NEW DATE IN FILE ENTRY 



004737 
004737 
1 1 3700 
00 1 407 
020027 
001410 
012700 
000137 
042761 



If PIP is doing a .SFDAT, set the time entry in the file directory 

to the time from the file last looked up. 

This is done to preserve both date and time for a file across 

a PIP copy operation. 

GET CURRENT JOB INDEX NUMBER 
IS PIP RUNNING? 
BR IF NOT 

ARE WE USING THE OLD FILE'S DATE? 
BR IF NOT 
MOV LSTFDT, FD$T1M<R1 > ; USE TIME VALUE FROM LAST .LOOKUP 

Add new file entry to directory cache 



MOVB 


CORUSR, R4 


BIT 


#*PIPRN, LSW6<R4> 


BEG 


SFEXIT 


CMP 


RO, LSTFDD 


BNE 


SFEXIT 



SFEXIT: CALL CSHADD 

Rewrite directory segment 

CALL WRTSEG 
F i n i 5 h e d 



CLR 

JMP 



C. CSW<R3) 
USRXIT 



; ADD ENTRY TO CACHE 



; REWRITE DIRECTORY SEGMENT 



; SAY CHANNEL IS CLOSED 
j EXIT 



. SFTIM — Set file time in file entry 



004704' SFTIME: CALL 

004754' CALL 

000004G OOOOOOG MOV 

BR 



SFCOM i LOCATE FILE ENTRY 

SFWRIT iMAKE SURE WE HAVE WRITE ACCESS 

EKTBLK+4, FD*TIM(R1) i SET TIME VALUE IN DIRECTORY ENTRY 
SFEXIT i REWRITE DIRECTORY SEGMENT 



« 

< 
i 

i 
€ 

« 



. FPROT — Set file p r o t e c t i on 



004704 ' 
004754 ' 
000004G 

000001 

000003 

015144' 

OOOOOOG OOOOOOG 2*: 



SFPROT: 



CALL SFCOM 

CALL SFWRIT 

MOVB EMTBLK+4, RO 

BEG. 2* 

CMP RO, #1 

BEG 3* 

MOV #3, RO 

JMP USRCLS 

BIC #FS*PR0»FD*STA<R1) i UNPROTECT THE FILE 



DO COMMON SETUP 

MAKE SURE WE HAVE WRITE ACCESS 

GET PROTECT/UNPROTECT FLAG 

BR IF UNPROTECT WANTED 

VALUE MUST BE O OR 1 

BR IF PROTECT WANTED 

ERROR IF NOT OR 1 
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. SFDAT, . SFMM, & . FPUiV] 

58 004574 000736 J3R SFEXIT ; GO EXIT 

59 004576 052761 0000000 OOOOOOG 3*: BIS #FS«PRO, FD*STA(R1 ) ; PROTECT THE FILE 

60 004604 000732 BR SFEXIT 



rsusR - 


— File 


operation EMT ■' s MACRO V 


GFINF - 

1 
2 

3 


— Get in formati 


on about a file 








4 








5 








6 








7 








8 








9 








10 


004606 


004737 


004704 ' 


11 


004612 


013700 


0000040 


12 


004616 


004737 


0000000 


13 








14 


004622 


016146 


0000000 


15 


004626 


106620 




16 








17 


004630 


005046 




18 


004632 


032761 


0000000 OOOOOOG 


19 


004640 


001401 




20 


004642 


005216 




21 


004644 


.1.06620 




22 








23 


004646 


016146 


0000000 


24 


004652 


106620 




25 








26 


004654 


016146 


OOOOOOG 


27 


004660 


106620 




28 








29 


004662 


010002 




30 


004664 


004737 


013420' 


31 


004670 


010046 




32 


004672 


106622 




33 








34 








35 








36 


004674 


00 5063 


OOOOOOG 


37 


004700 


000137 


015172' 
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. SBTTL . GFINF 



Get information about a file 



GFINF Get the following information about a file: 

1 . Size of the file. 

2. Protected/Unprotected status. 

3. Date of creation. 

4. Time of creation. 

5. Starting block number of file. 



GFINFO 



SFCOM 

EMTBLK+4, RO 
VALADW 



; LOCATE FILE ENTRY 

i GET ADDRESS OF USER'S INFO BUFFER 

;MAKE SURE ADDRESS IS VALID 



CALL 

MOV 

CALL 
; File size 

MOV FD*LEN(R1 )> -<SP)i FILE SIZE 

MTPD (R0)+ 
i Protected/Unprotected status 

CLR -<SP) .; ASSUME FILE IS NOT PROTECTED 

BIT #FS*PRO, FD*STA<R1); IS FILE PROTECTED? 

BEG 1* iBR IF NOT 

INC (SP) ; RETURN 1 IF FILE IS PROTECTED 

1$: MTPD (R0)+ 
; Creation date 

MOV FD*DAT<R1>> ~<SP> > CREATION DATE 

MTPD (R0)+ 



Creation time 

MOV FD$TIM«R.t>. 

MTPD <R0)+ 
Starting block number 



MOV 


RO, R2 


CALL 


SBCALC 


MOV 


RO, -<SP> 


MTPD 


<R2) + 


F i n i s h e d 




CLR 


C. CSW(R3 


JMP 


USRXIT 



•<SP)J CREATION TIME 



> SAVE BUFFER POINTER 

; CALCULATE STARTING BLOCK NUMBER 

; RETURN STARTING BLOCK NUMBER 



; SAY CHANNEL IS CLOSED 
! EXIT 
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. GFINF — Get information about a file 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



004704 004737 007362 ' 



Common setup routine used by SFDATE and SFPRDT routines. 

The USR entry setup is done including moving the file spec and checking 

to see that the channel is open. 

The directory entry is found. 

If any errors are detected* an error return from the EMT is taken. 



Outputs: 
Rl = Address of directory entry for file. 
R3 ~~ Address of CSW for channel. 
R4 = Index into device table for device being opened. 



3FC0M: CALL 



USR COM 



; DO USR ENTRY SETUP 



004710 
004716 
004720 
004724 



004730 
004734 
004736 
004742 



032764 
001004 
012700 
000137 



004737 
103004 
012700 
000137 



OOOOOOG OOOOOOG 

000002 
015144' 



011242' 

000001 

015144' 



Make sure this is a file structured device and we have write 

access to it. 

BIT #DS*DIR*DVSTAT<R4) ; IS THIS A FILE STRUCTURED DEVICE? 

BNE 1* ;BR IF YES 

MOV #2, RO ; RETURN ERROR CODE 2 IF NOT 

JMP USRCLS 



Locate directory entry for the file 



1*: 



CALL 


FNDFIL 


BCC 


3* 


MOV 


#1* RO 


JMP 


USRCLS 



; LOCATE THE DIRECTORY ENTRY 
> BR IF ENTRY FOR FILE FOUND 
; ERROR 1 IF CAN'T FIND ENTRY 



004746 004737 014616' 



00475i 



000207 



Remove directory entry from cache 
3*: CALL CSHDEL * REMOVE ENTRY FROM CACHE 

F i n i s h e cl 

RETURN 



Make sure that we have write access to a file. 
Produce an abort if not. 

Inputs: 
R3 = Address of CSW for channel opened to the file. 



€ 



004754 032763 OOOOOOG OOOOOOG SFWRIT: BIT 

004762 001406 BEQ 

004764 004737 015214' CALL 

004770 012700 177763 MOV 

004774 000137 015144' JMP 

005000 000207 1*: RETURN 



#CS*RON*C. CSW(R3> i DO WE HAVE WRITE ACCESS TO THE FILE? 

1$ } BR IF YES 

ERRIMAM i SET FILE SPEC FOR TSKMON ERROR MESSAGE 

#-15* RO > ERROR IF NOT 

USRCLS 

; SUCCESSFUL RETURN 



TSUSR - 
ALCEMT 



3 



~ File o p e r a t i o n EMT ' s 
- Allocate a < .1 e;vice 
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SBTTL ALCEMT — Allocate a device 



6 


005002 






7 








8 








9 








10 


005002 


1 1 3700 


OOOOOOG 


11 


005006 


001410 




12 


005010 


120027 


000001 


13 


005014 


001475 




14 


005016 


120027 


000002 


15 


005022 


00 1 567 




16 


005024 


000137 


oooooog 


17 








18 








19 








20 


005030 


032737 


OOOOOOG 


21 


005036 


00 1 004 




22 


005040 


012700 


000005 


23 


005044 


000137 


OOOOOOG 


24 








25 








26 








27 


005050 


004737 


005622' 


28 








29 








30 








31 


005054 


004737 


005422' 


32 








33 








34 








35 








36 








37 


005060 


012702 


OOOOOOG 


38 


005064 


013700 


002014' 


39 


005070 


020062 


OOOOOOG 


40 


005074 


00 1 406 




41 


005076 


062702 


OOOOOOG 


42 


005102 


020227 


OOOOOOG 


43 


005106 


103770 




44 


005110 


000410 




45 








46 








47 








48 


005112 


1 1 6200 


OOOOOOG 


49 


005116 


120160 


OOOOOOG 


50 


005122 


001030 




51 


005124 


110162 


OOOOOOG 


52 


005130 


000425 




53 








54 








55 








56 








57 


005132 


012702 


OOOOOOG 



The ALLOCATE EMT is ut>ed to allocate a device for exclusive access by 
the current job. 

ALCEMT: 

Determine if this is an Allocate* Deallocate, or test allocation EMT 

Get sub-function code 
0~=>A1 locate 
l==>Deal locate 

; 2~=>Test allocation 

; Invalid sub-function code 



MOVE 


EMTBLK, RO 


BEQ 


10* 


CMPB 


RO, #1 


BEQ 


DLCEMT 


CMPB 


RO, #2 


BEQ 


TLCEMT 


JMP 


BADEMT 



Allocate a device 



OOOOOOG 10*: 



BIT 
BNE 
MOV 
JMP 



#PO*ALC, PRIVCO i Are we authorized to allocate devices? 



11* 
#5, RO 
SETERR 



; Br if yes 

i Error code 5 if not authorized 



Do common allocate setup 

11*: CALL ALCCOM J Do common setup 

See if the device beinp allocated is currently allocated to another job 

CALL ALCTST ; Test for allocation to another job 

Device is not currently allocated. 

Check to see if the device is already allocated by our job or a 

related job. 



MOV #ALCTBL, R2 

MOV FILDVU, RO 

4*: CMP RO, AD*DVU<RP> 

BEQ 5* 

ADD #AD**SZ, R2 

CMP R2, #ALCEND 

BLO 4* 

BR 7* 



Point to start of allocation table 

Get device # and index # 

Search for device in allocation table 

Br if found it 

Point to next entry 

Checked all entries? 

Br if not 

Br if not currently in allocation table 



Device is already in allocation table 



MOVB 


AD*J0B(R2),R0 


CMPB 


R1,LNPRIM<R0) 


BiME 


9* 


MOVB 


Rl, AD*J0B<R2) 


BR 


9* 



Get # of job that owns device 

Is primary job reallocating device? 

Br if not 

Let primary job take over device 



Device is not currently allocated. 

Search for a free entry in the allocation table. 



7*: 



MOV 



#ALCTBL, R2 



iPoint to start of allocation table 



c 
I 
< 
I 
I 
< 
c 
< 
c 
< 
i 
i 
f 
< 

i 

i 
t 
< 
( 



TSUSR - 


— File 


operati <:. 


n EMT's MACRO V 


ALCEMT - 


- - Allocate a tl t- 


v i c e 


58 


005136 


105762 


0000000 


59 


005142 


001411 




60 


005144 


062702 


0000000 


61 


005150 


020227 


0000000 


62 


005154 


103770 




63 


005156 


012700 


000003 


64 


005162 


000137 


015156' 


65 








66 








67 








68 


005166 


013762 


002014' OOOOOOG 


69 


005174 


110162 


0000000 


70 


005200 


105062 


OOOOOOG 


71 








72 








73 








74 


005204 


000137 


015172' 
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2*: 



TSTB 


AD*J0B<R2) 


BEQ 


3* 


ADD 


#AD**SZ, R2 


CMP 


R2, #ALCEWD 


BLO 


2* 


MOV 


#3, RO 


JMP 


USRERR 



Is this entry free? 

Br if yes 

Point to next table entry 

Checked all entries? 

Loop if more to check 

Error 3 — Allocation table is full 

Error abort 



Found a free entry, set it up for this device 



3$: 



MOV 

MOVB 

CLRB 

F i n i s h e ri 



FILDVU, AD$DVU<R2)> Store device and unit numbers 



9$: 



JMP 



Ri, AD*J0B<R2> 
AD*FL0<R2) 



USRXIT 



Store job number 
No flags yet 



4 
4 
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3 
4 








5 


005210 


032737 


0000000 OOOOOOG 


6 


005216 


001004 




7 


005220 


012700 


000005 


8 


005224 


000137 


0000000 


9 


005230 


004737 


005622 ' 


10 


005234 


012702 


OOOOOOG 


11 








12 








13 








14 








15 


005240 


013700 


0000000 


16 


005244 


001015 




17 


005246 


120162 


OOOOOOG 


18 


005252 


001004 




19 


005254 


105062 


OOOOOOG 


20 


005260 


005062 


OOOOOOG 


21 


005264 


062702 


OOOOOOG 


22 


005270 


020227 


OOOOOOG 


23 


005274 


103764 




24 


005276 


000437 




25 








26 








27 








28 








29 


005300 


105737 


002014' 


30 


005304 


00 1 434 




31 


005306 


013700 


002014' 


32 


005312 


020062 


OOOOOOG 


33 


005316 


001406 




34 


005320 


062702 


OOOOOOG 


35 


005324 


020227 


OOOOOOG 


36 


005330 


103770 




37 


005332 


000421 




38 


005334 


1 1 6200 


OOOOOOG 


39 


005340 


126061 


OOOOOOG OOOOOOG 


40 


005346 


001407 




41 


005350 


006200 




42 


005352 


010037 


OOOOOOG 


43 


005356 


012700 


000001 


44 


005362 


000137 


015156' 


45 


005366 


005062 


OOOOOOG 


46 


005372 


105062 


OOOOOOG 


47 








48 








49 








50 


005376 


000137 


015172' 



. SBTTL DLCEMT 
Deallocate a device 4 . 



Deallocate a device 



DLCEMT: BIT 
BNE 
MOV 
JMP 

11*: CALL 
MOV 



#PO*ALC, PR1VC0 j Are we authorized to allocate devices? 

11* ; Br if yes 

#5. RO > Error code 5 if not authorized 

SETERR 

ALCCOM i Do common setup 

#ALCTBL, R2 j Point to start of allocation table 



If the device name is null.- deallocate all devices allocated by 
this user. 



1*: 



3$: 



MOV 


FILSPCRO 


BNE 


2* 


CMPB 


Rl, AD*J0B<R2> 


BNE 


3* 


CLRB 


AD*J0B<R2> 


CLR 


AD*DVU ( R2 ) 


ADD 


#AD**SZ, R2 


CMP 


R2, #ALCEND 


BLO 


1* 


BR 


9* 



Is device name null? 

Br if not 

Is this entry an allocation for our job? 

Br if not 

Say no job using this entry 

Say entry is free 

Point to next allocation table entry 

Checked all entries?' 

Loop if more to check 



The device name is not null. 
Deallocate the specified device. 



2*: 



7*: 



5*: 



6*: 

F i n i s h e d 
9*: JMP 



TSTB 


FILDVU 


BEQ 


9* 


MOV 


FILDVU, RO 


CMP 


RO, AD*DVU(R2> 


BEQ 


5* 


ADD 


#AD**SZ, R2 


CMP 


R2, #ALCEND 


BLO 


7* 


BR 


9* 


MOVB 


AD*J0B<R2), RO 


CMPB 


LNPRIM<RO), LN 


BEQ 


6* 


ASR 


RO 


MOV 


RO, URO 


MOV 


#1, RO 


JMP 


USRERR 


CLR 


AD*DVU(R2) 


CLRB 


AD* JOB ( R2 ) 



■> Trying to deallocate TT? 
» Ignore if yes 

; Get device/unit ID for device being dealloc 
; Search for specified device in alloc table 
i Br if found it 
jPoint to next entry in table 
^Checked all entries? 
j Keep looking if not 
; Device was not allocated by anyone 
; Get # of job that oums this device 
LNPRIM<R1> i Is device owned by us? 
iBr if yes 

; Convert job index # to job # 
; Return owner job # in RO 
; Error 1 — Device is allocated 



to someone 



; Say this table entry is free 



USRXIT 



t 

< 
< 

« 

i 
< 
< 
< 

< 
c 

€ 

i 

< 

c 
f 
< 

i 
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1 
2 
3 
4 

5 005402 005037 OOOOOOG 

6 005406 004737 005622' 
7 

8 

9 
10 005412 004737 005422' 
11 
12 
13 
14 005416 000137 015172' 



. SBTTL TLCEMT - — Check to see if a device is allocated 
Check to see if a device is allocated by another user. 



TLCEMT: CLR 
CALL 



URO 
ALCCOM 



; Clear user's RO in case ALCCOM aborts 
; Do common setup 



See if device is currently allocated 

CALL ALCTST i See if device is allocated to another user 

Finished — Device is not allocated to any other user 

JMP USRXIT j Device is not allocated to anyone else 



4 
< 
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ALCTST — See if device is allocated to another user 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
t? 

23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL ALCTST 



See if device is allocated to another user 



ALCTST is a subroutine called to determine if a device is allocated to 
another user or in use by another user. 

Inputs: 
F1LSPC = File spec for device being allocated. 
FILDVU = Device index # and unit # for device being tested. 
Ri = Current job index number 

Outputs: 
If the device is in use by another user, error returns are made 
by jumping to USRERR. 
If the device is not allocated by other users, this routine returns. 



005422 010246 
005424 010346 



005426 005037 0000006 



ALCTST: MOV 
MOV 



R2, -<SF) 
R3. -<SP) 



Clear returned value for RO in case device is not in use or allocated 



CLR URO 

See if the device is leys] 



005432 005737 000000G 

005436 001413 

005440 105737 0020.14' 

005444 001410 

005446 123737 002014' OOOOOOG 6*: 

005454 001010 

005456 123737 002015' 0000010 

005464 001004 

005466 012700 000002 11*: 

005472 000137 015156' 



TST 


FILSPC 


BEQ 


11* 


TSTB 


FILDVU 


BEQ 


11* 


CMPB 


FILDVU, SYINDX 


BNE 


12* 


CMPB 


FILDVU+1. SYUN 


BNE 


12* 


MOV 


#2. RO 


JMP 


USRERR 



; Say no use of device found yet 



; Don't allow null device 
; Error if name null 
i Trying to allocate TT? 
> Br if yes 

; Is this the system device? 
>Br if not 

•l;Is this the system unit? 
;Br if not 
.Invalid device if null 



See if the device is currently allocated to any user 



005476 012702 0000000 12*: 

005502 023762 002014" OOOOOOG 1*: 
005510 001423 

005512 062702 OOOOOOG 

005516 020227 OOOOOOG 
103767 



MOV #ALCTBL, R2 ; Point to start of allocation table 

CMP FILDVU. AD*DVU<R2> ; Search for entry for this device and unit 

BEQ 5* i Br if found it 

ADD #AD**SZ,R2 ; Point to next entry 

CMP R2, #ALCEND ; Searched all entries? 

BLO 1* j Loop if not 



Device is not currently allocated. 

See if any other job has a channel open to this device. 



005524 004737 005742' 

005530 103007 

005532 006200 

005534 010037 OOOOOOG 

005540 012700 000004 

005544 000137 015156' 

005550 006200 

005552 010037 OOOOOOG 

005556 000416 



13*: 



CALL 


CHKUSE 


BCC 


13* 


ASR 


RO 


MOV 


RO. URO 


MOV 


#4, RO 


JMP 


USRERR 


ASR 


RO 


MOV 


RO. URO 


BR 


9* 



;See if device is being used by another job 

ifir if no other jobs have device open 

; Convert job index # to job # 

; Return in RO 

j Error 4 — Device in use by another job 

j Get # of job that is using the device 
; Return in RO 
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ALCTST — See if device is allocated to another user 



58 
59 
60 

61 005560 116203 000000G 5-$: 

62 005564 010337 0000000 

63 005570 006237 0000000 

64 005574 126361 0000000 OOOOOOG 

65 005602 00140'? 

66 005604 012700 000001 

67 005610 000137 015156' 
68 
69 
70 

71 005614 012603 9*: 

72 005616 012602 

73 005620 000207 



The device is allocated. 

See if it is allocated to our job or to another job. 



; Set # of job to which dev is allocated 
; Return job # to user in RO 



MOVB AD* JOB ( R2 ) , \<3 

MOV R3, URO 

ASR URO 

CMPB LNPRIMCR3),LNPRIM(R1> ;Is dev allocated to our family? 

BEQ 9* i Br if yes 

MOV #1,R0 i Error 1 — Device is allocated to another job 

JMP USRERR 

Device is not allocated to another user 



MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





€ 
4 



TSUSR 
ALCCOM 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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— Common setup for Allocate/Deallocate 



00562^ 



010146 



005624 004: 



007770' 



005630 013701 000002G 
005634 004737 007532 ' 



005640 00 5737 0000000 

005644 001430 

005646 004737 010212' 

005652 103016 

005654 020437 OOOOOOG 

005660 001004 

005662 020027 OOOOOOG 

005666 103417 

005670 000412 

005672 020437 OOOOOOG 

005676 001007 

005700 020027 177770G 

005704 002410 

005706 000403 

005710 020437 OOOOOOG 

005714 001004 



005716 012700 000002 
005722 000137 015156' 



005726 
005732 



110437 002014' 
110037 002015' 



. SBTTL ALCCOM — Common setup for Allocate/Deallocate 

Do common setup for Allocate/Deallocate EMT's. 

Outputs: 
USR data base is locked for exclusive access. 
FILSPC = File spec passed with EMT. 
FILDVU = Device index # and unit # 
R4 = Device index number. 

ALCCOM: MOV R1,-<SP> 

Gain exclusive access to USR data base 

CALL GETUSR ; Get exclusive use of USR 

Move file spec to FILSPC and apply any assigns 



MOV EMTBLK+2, Rl 
CALL GETSPC 



; Get pointer to device spec argument 
; Setup FILSPC 



Check to see if the device is valid 



3*: 



1 * : 



TST 


FILSPC 


BEG 


2* 


CALL 


CHKDEV 


BCC 


1* 


CMP 


R4> CLDEVX 


BNE 


3* 


CMP 


RO, #CLTOTL 


BLO 


2* 


BR 


8* 


CMP 


R4# C1DEVX 


BNE 


8* 


CMP 


RO, #CLT0TL~8. 


BLT 


2* 


BR 


8* 


CMP 


R4. LDDEVX 


BNE 


2* 



Is the device null? 

Treat this as a special valid device 

See if device is valid 

Br if CHKDEV says it is valid 

Is this a CL unit? 

Br if not 

Valid CL unit number? 

Br if yes 

Invalid device 

Is this a CI unit? 

Br if not 

Is this a valid CI unit number? 

Br if yes 

Br if not 

Is this a logical disk? 

Br if not — Don't allow alloc of LD 



This is an invalid device 



8$: 



MOV 
JMP 



#2, RO 
USR ERR 



Error 2 



Invalid device 



This is a valid device, Build the FILDVU word 



?*: 



005736 012601 
005740 000207 



MOVB 


R4, FILDVU 


MOVB 


RO, FILDVU+i 


F i n i s h e d 




MOV 


<5P>+, Rl 


RETURN 





i Set device index number 
> Set unit number 






TSUSR - 
CHKUSE - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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005742 
005744 
005746 
005750 



005752 



005760 
005762 
005766 
005772 
005774 
006002 



006004 
006010 
006012 
006014 
006016 
006020 
006024 
006026 
006030 
006032 



006034 
006042 
006044 
006046 



4 



010246 
010346 
010446 
010546 



005004 
013705 
005765 
001430 
026537 
001024 



012702 
020201 
001415 
010203 
010246 
004737 
010200 
012602 
130310 
00 1 405 



126261 
001073 
010204 
162702 



SBTTL CHKUSE 



Bee if any channels open to a specified device 



CHKUSE is called to see if any jobs other than a specified job and its 
associated virtual jobs have any channels open to a specified device. 

Inputs: 
Rl = Job whose access is to be allowed. 
FILDVU = Device index # and unit # of device to be checked. 

Outputs: 
C-flag cleared ==> No job other than current job has 

channels opened to the device. 
C-flag set ==> Some other job has a channel open to the device. 
RO - Job index number of job that is accessing the device. 
(Zero returned if no job is using the device). 



CHKUSE: MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP) 
R4, -<5P) 
R5, -<SP> 



Get exclusive access to job context block buffer 

OCALL GETCXT ■> Get exclusive access to context block buffer 

First check to see if the specified device is mounted by another user. 
We also check to see if any logical disk on the specified device is 
mounted. 



000000G 
000OOOG 

000000G 002014' 



6*: 



CLR 
MOV 
TST 
BEG 
CMP 
BME 



R4 

CSHDEV, R5 
CD*DVU(R5) 
7* 



; Have not found any job accessing device 
i Point to start of mount table 
; Is this mount entry in use? 
; Br if not 



CD*DVU(R5), FILDVU ; Does this match device of interest? 
7* i Br if not 



000000G 



015112 



O00OOOG 000000G 



We found a mount entry for the device we are checking. 

Now we must determine which job(s) have mounted the device. 

Get index # of last job 
8*: CMP R2>R1 ; Are we checking current job? 

Br if yes — - It is ok 
Get index number 
Preserve R2 

Get pointer to flag for this job 
Get pointer to byte with flag bit 
Recover job number 

Does this job have device mounted? 
Br if not 

We have found a job that has the device mounted. 
See if it is ok for that job to access the device. 

CMPB LNPRIM(R2),LNPRIM<R1) i Is this job allowed to access the dev? 

BME 5* i Br if not 

MOV R2> R4 } Remember # of job accessing device 



MOV 


#LSTSL, R2 


CMP 


R2, Rl 


BEG 


10* 


MOV 


R2> R3 


MOV 


R2, -<SP) 


CALL 


CDJFLG 


MOV 


R2,R0 


MOV 


(SP)+> R2 


BITE 


R3. (RO) 


BEG 


10$ 



10*: 



SUB 



#2, R2 



■> More jobs to check' 



TSUSR • 
CHKUSE • 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

6? 

70 

71 

72 

73 

74 

75 

76 

77 

7S 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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00605J 



003356 



BGT 8* ;Br if yes 

Check next mount table entry 



006054 062705 OOOOOOG 
006060 020537 OOOOOOG 
006064 103740 



006066 010405 



7*: 



ADD 


#CD$*SZ, R5 


CMP 


R5, CSHDVN 


BLO 


6* 



; Point to next mount table entry 

j Have we checked all mount table entries? 

; Br if not 



006070 012702 000002 



Finished checking all mount table entries 

MOV R4, R5 ; Get # of any job accessing device 

Begin loop to cycle through all jobs to see if any job has 
a channel opened to this device. 

MOV #2/ R2 ; Get index # of 1st job 

Ignore this job if it is not logged on. 



006074 032762 0O0OO0G 000000G 1*: 
006102 001440 



BIT #*KINIT,LSW<R2) ;Is this job logged on? 
BEG 2* i Br if not 



Begin loop to cycle through all channels for this job 



006104 005003 
006106 



006114 032760 OOOOOOG OOOOOOG 



3*: 



CLR 
OCALL 



R3 
GETCHA 



; Start with channel # O 

; Get address of this channel 



006 1; 



00 1 424 



006124 010004 

006126 016400 OOOOOOG 

006132 042700 177701 

006136 116404 OOOOOOG 

006142 042704 177770 

006146 120037 002014' 

006152 001010 

006154 120437 002015' 

006160 001005 



006162 126261 OOOOOOG OOOOOOG 
006170 001020 
006172 010205 



006174 005203 

006176 020327 OOOOOOG 

006202 103741 



Ignore this channel if it is not open 

BIT #CS*QPi\f, C. CSW<RO) ; Is this channel open? 
BEQ 4* j Br if not 

Get the device index number and the channel number out of the 
channel block. 

Get addr of channel block to R4 

Get CSW 

Extract device index number 

Get unit number 

Clear all but unit number 

Does it match the device of interest? 

Br if not 

Does unit number match? 

Br if not 

We found a job that has a channel open to the device 

CMPB LNPRIM<R2>, LNPRIM<Ri ) J Is this job allowed to access the dev? 

BNE 5$ i Br if not 

MOV R2> R5 ; Remember # of friendly job 

Check next channel (including Command file, log file* spool control 
and SAV file load channels) 

4*: INC R3 > Advance the channel number 

j Checked all of user's channels? 
; Loop if more to check 



MOV 


R0.R4 


MOV 


C. CSW<R4>, RO 


BIC 


# A C76, RO 


MOVB 


C. DEVG(R4), R4 


BIC 


#'"C7, R4 


CMPB 


RO, FILDVU 


BNE 


4* 


CMPB 


R4, FILDVU+1 


BNE 


4* 



INC 


R3 


CMP 


R3, #NLCHN 


BLO 


3* 



TSUSR - 


-- File 


operation EMT ' s 


CHKUSE - 


— See i 


f any channels o 


115 








116 








117 








US 


006204 


062702 


000002 


119 


006210 


020227 


0000000 


120 


006214 


1 1 727 




121 








122 








J.Cw 








124 








IcJ 


006216 






126 


006224 


010500 




127 


006226 


000241 




12S 


006230 


000405 




129 








130 








131 








132 


006232 






133 


006240 


010200 




134 


006242 


000261 




135 








136 








137 








138 


006244 


012605 




139 


006246 


012604 




140 


006250 


012603 




141 


006252 


012602 




142 


006254 


000207 
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open to a specified device 



Check next job 



Page 19-2 



ADD 


#2, R2 


CMP 


R2. #LSTS 


BIOS 


1* 



>Get # of next job 
; Checked all jobs? 
; Loop if more to check 



Finished checking all jobs 

See if a friendly job is using the device 



OCALL 


FRECXT 


MOV 


R5, RO 


CLC 




BR 


9* 



i Free context block buffer 

; Get # of any job accessing the device 

j Set flag saying device is free 



We found a job accessing the channel who is in conflict with testing job 

; Free context block buffer 

i Return job index number in RO 

; Set flag saying that device is in use 



9*: 



OCALL 


FRECXT 


MOV 


R2, RO 


uDt.1 Vc 




-inished 




MOV 


<SP)+, R5 


MOV 


<SP>+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





TSUSR - 


— File 


operatic 


n EMT's MACRO VOJ 


MOUNT - 

1 
2 

< 3 
4 
5 

C 6 
7 
8 

( 9 


— Mount 


a new f 


i 1 e structure 


006256 


004737 


> 
007120' 1* 

f 


006262 


004737 


> 
> 

006732 ' 


10 






.; 


11 






i 


< 12 






i 


13 


006266 


004737 


014776' 


14 


006272 


103105 




( 15 








16 








17 








i 18 








19 


006274 


113705 


002014' 


20 


006300 


016500 


0000000 


t 21 


006304 


032700 


0000000 


22 


006310 


001503 




23 


006312 


032700 


0000000 


I 24 


006316 


001100 




25 


006320 


032765 


0000000 0000000 


26 


006326 


001074 




< 27 


006330 


032765 


0000000 0000000 


28 


006336 


001070 




29 








€ 30 








31 








32 


006340 


013705 


0000000 


1 33 


006344 


005765 


0000000 1 


34 


006350 


001411 




35 


006352 


062705 


0000000 


i 36 


006356 


020537 


0000000 


37 


006362 


103770 




38 


006364 


012700 


000001 


4 39 


006370 


000137 


015156' 


40 








41 








i 42 








43 








44 


006374 


004737 


015054' £ 


4 45 


006400 


005065 


0000000 


46 


006404 


005065 


0000020 


47 


006410 


012765 


177777 0000000 


1 48 


006416 


010365 


0000000 


49 


006422 


010465 


0000000 


50 


006426 


001420 




4 51 


006430 


113703 


002015' 


52 


006434 


006303 




53 


006436 


066304 


0000000 


4 54 


006442 


010465 


0000000 


55 


006446 


072327 


000002 


56 


006452 


062703 


0000000 


4 57 


006456 


005723 
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. SBTTL MOUNT — Mount a new file structure 
The MOUNT EMT is used to introduce a new file structure to the system. 
MOUNT: CALL MNTCOM ; DO COMMON SETUP 

First dismount the device to clear the directory file entries 

CALL DMTSUB * DISMOUNT THE DEVICE 

See if this device is mounted by other users. 



CALL 
13 CC 



CSHTST 
4* 



; SEARCH FOR DEVICE IN MOUNT TABLE 
;BR IF DEVICE IS ALREADY MOUNTED 



Device is not currently mounted by any job. 

Check to see if this device is eligible for directory caching. 



MOVB 
MOV 
BIT 
BEG 

BIT 
BNE 
BIT 
BNE 
BIT 
BNE 



GET DEVICE INDEX NUMBER 

GET STATUS FLAGS FOR THIS DEVICE 

IS THIS A DIRECTORY STRUCTURED DEVICE? 

BR IF NOT — DON'T CACHE 

NON RT-11 DIRECTORY STRUCTURE (MAG TAPE)? 

BR IF YES — DON'T CACHE 

#DX$NRD, DVFLAGCR5); Internal non-RT-dir flag set? 

3* ; Br if yes 

#DX$NMT> DVFLAG<R5>; Is it flagged for no mount? 

3* > Br if yes 



FILDVU, R5 

DVSTAT<R5), RO 

#DS*DIR,RO 

3* 

#DS*NRD, RO 

3* 



Look for a free entry in the mount table. 



MOV CSHDEV, R5 

TST CD*DVU<R5> 

BEQ 2* 

ADD #CD**SZ, R5 

CMP R5, CSHDVN 

BLO 1* 

MOV #1,R0 

JMP USRERR 



POINT TO TABLE OF STRUCTURES 

SEARCH FOR A FREE SLOT IN THE TABLE 

BR IF FOUND ONE 

POINT TO NEXT TABLE ENTRY 

HIT END OF TABLE? 

BR IF NOT 

NO FREE SLOTS IN TABLE 



We found a free entry in the mount table. 
Set up the entry for this device. 



€ 



2$: 



; GET PHYSICAL DEVICE # AND UNIT # 

; CLEAR FILE NAME (ASSUME NOT LOGICAL DISK) 

#1.77777, CD«T0P<R5>; ASSUME NOT LOGICAL DISK FOR TOP BLOCK 

STORE PHYSICAL DEVICE # AND UNIT # 
STORE BASE BLOCK # IF LOGICAL DISK 
BR IF NOT A LOGICAL DISK 
THIS IS A LOGICAL DISK, GET LD UNIT # 
CONVERT UNIT # TO WORD TABLE INDEX 
GET # OF BLOCK ABOVE TOP OF LOGICAL DISK 
SET TOP BLOCK NUMBER OF LOGICAL DISK 
TIMES 8 BYTES PER ENTRY 

POINT TO ENTRY FOR NAME OF THIS LD FILE 
SKIP OVER DEVICE NAME 



CALL 


GETDVU 


CLR 


CD*NAM(R5) 


CLR 


CD*NAM+2<R5> 


MOV 


#177777, CD*TO 


MOV 


R3, CD*DVU<R5) 


MOV 


R4> CD*BA3<R5> 


BEQ 


6* 


MOVB 


FILDVU+1.R3 


ASL 


R3 


ADD 


LDSIZE(R3), R4 


MOV 


R4, CD*T0P<R5) 


ASH 


#2, R3 


ADD 


#LDNAME, R3 


TST 


<R3) + 



TSUSR - 


— File 


operation EMT's MACR 


MOUNT - 


-— Mount 


a new f 


i le structure 


59 


006460 


012365 


0000000 


59 


006464 


011365 


0000020 


60 








61 








62 








63 








64 


006470 


010503 




65 


006472 


062703 


OOOOOOG 


66 


006476 


012700 


0000000 


67 


006502 


105023 




68 


006504 


077002 




69 








70 








71 








72 


006506 


1 1 3703 


OOOOOOG 


73 


006512 


004737 


015112' 


74 


006516 


150312 




75 


006520 


000137 


015172' 
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MOV 
MOV 

> Initially 
; any job 



!R3) + , CD*NAM<R5>; STORE 1ST 3 CHARS OF FILE NAME 
<R3>, CD*NAM+2<R5); STORE 2ND 3 CHARS OF NAME 

clear all mount flags saying device is not mounted by 



POINT TO SET OF MOUNT -FLAGS FOR 

ALL JOBS 
GET # BYTES USED FOR MOUNT FLAGS 
SAY DEVICE NOT MOUNTED BY ANY JOBS 



6*: 


MOV 


R5> R3 




ADD 


#CD*JOB> R3 




MOV 


#CD**UB, RO 


5*: 


CLRB 


<R3) + 




SOB 


RO, 5* 



> Set mount flag for our job 



4*: MOVB 
CALL 
BISB 

3$: JMP 



CORUSR, R3 
CDJFLG 
R3, <R2> 
USRXIT 



Get our job index number 
GET MOUNT FLAG FOR OUR JOB 
SET MOUNT FLAG FOR OUR JOB 



TSUSR - 


— File 


operat i o n EMT ' s 


DISMNT - 

1 

2 
3 


— Dismount a > : i 


ie stroc 








4 








5 


006524 






6 








7 








B 








9 








10 


006524 


1 1 3700 


OOOOOOG 


11 


006530 


120027 


000001 


12 


006534 


001430 




13 


006536 


120027 


000002 


14 


006542 


00 1 442 




15 


006544 


1 20027 


000003 


16 


006550 


001414 




17 


006552 


120027 


000004 


IS 


006556 


001413 




19 


006560 


120027 


000005 


20 
21 

22 


006564 


001412 










23 








24 


006566 


004737 


007120' 


25 








26 








27 








28 


006572 


004737 


006732 ' 


29 








30 








3.1. 








32 


006576 


000137 


015172" 


33 








34 








35 








36 


006602 


000137 


OOOOOOG 


37 








38 








39 








40 


006606 


000137 


OOOOOOG 


41 








42 








43 








44 


006612 


000137 


OOOOOOG 


45 








46 








47 








48 








49 


006616 


004737 


007770 ' 


50 


006622 


013700 


OOOOOOG 


51 


006626 


005060 


OOOOOOG 


52 


006632 


005060 


OOOOOOG 


53 


006636 


016000 


OOOOOOG 


54 


006642 


00137.1 




55 


006644 


000137 


015172' 
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. BBTTL DISMNT — Dismount a file structure 
The DISMNT EMT is used to remove a file structure from the system tables. 

DISMNT: 

Determine if this is a request to dismount a specific file structure 
or a request to clean out the directory cache. 

; Get sub-function code 

; Clean out directory cache? 

; Br if yes 

; Dismount all devices for job?" 

j Br if yes 

; Dismount a LD structure? 

; Br if yes 

.Get information about a LD structure? 

; Br if yes 

; Dismount all LD structures? 

» Br if yes 

This is a request to dismount a file structure 

CALL MNTCOM i Do common setup 

Call DMTSUB subroutine to do real dismount work. 



MOVB 


EMTBLK, RO 


CMPB 


RO, #1 


BEQ 


CSHDMT 


CMPB 


RO, #2 


BEG 


DMT ALL 


CMPB 


RO, #3 


BEG 


1* 


CMPB 


RO, #4 


BEG 


2* 


CMPB 


RO, #5 


BEG 


3* 



CALL DMTSUB 
Finished 

JMP USRXIT 
Dismount a LD structure 
1$: JMP LDDEMT 



i Do the dismount 



i Dismount a LD 



Get information about a LD structure 
;: JMP LDIEMT i Get info about a LD 

Dismount all LD structures 
3*: JMP LDAEMT > Dismount all LD's 

CSHDMT removes all entries from the directory cache 

CSHDMT: 



1*: 



CALL 


GETUSR 


MOV 


CSHHD, RO 


CLR 


FC*CDX<RO) 


CLR 


FD*NAM(RO) 


MOV 


FC*LNK(RO>. RO 


BNE 


1* 


JMP 


USRXIT 



; GET EXCLUSIVE USE OF USR 

; POINT TO 1ST CACHED DIRECTORY ENTRY 

>SAY ENTRY IS EMPTY 

;LINK TO NEXT ENTRY 

i BRANCH BACK IF ANOTHER TO FREE 

j FINISHED 



TSUSR 
DMT ALL 
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Dismount all mounted devices for job 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 
34 
35 

36 
37 
38 
39 
40 
41 



006650 



006650 004737 007770 



006654 113703 0000000 

006660 005005 

006662 004737 015112' 



006666 013705 0000000 

006672 005765 0000000 

006676 001406 

006700 010500 

006702 060200 

006704 130310 

006706 001402 

006710 004737 006752' 

006714 062705 0000000 

006720 020537 0000000 

006724 103762 



006726 000137 015172' 



. SBTTL DMTALL — Dismount all mounted devices for job 
Dismount all devices for this job. 
DMTALL: 

Oain exclusive access to USR data base 

CALL GETUSR ; Get exclusive access to USR 

Oet flag bit that identifies our job in mount table entries 



MOVB 

CLR 

vrlLL 



CORUSR, R3 

R5 

CDJFLG 



; Get our job index number 

; Say no entry to point to yet 

.; Get flag bit for our job 



Locate each device this is mounted by our job 



1*: 



2*: 



MOV 


CSHDEV, R5 


TST 


CD*DVU<R5) 


BEQ 


2* 


MOV 


RS. RO 


ADD 


R2, RO 


BITB 


R3, <R0) 


BEQ 


2* 


CALL 


DMTDEV 


ADD 


#CD**SZ, R5 


CMP 


RS, CSHDVN 


BLO 


1* 



Point to 1st cache device entry 

Is this entry in use? 

Br if not 

Get address of entry 

Point to byte with our job flag bit 

Is this device mounted by our job? 

Br if not 

Dismount this entry 

Point to next mount table entry 

Checked all entries? 

Loop if not 



Say job has no logical disks mounted 



3*: 



MOV 


#MAXLD, RO 


MOV 


#LDNAME, R5 


: CLR 


(R5) 


ADD 


#8. , R5 


SOB 


RO, 3* 


-inished 




JMP 


USRXIT 



> Get # of LD units 

; Point to LD name table 

; Say this LD not in use 

i Point to next LD table entry 

; Br if more to do 



> Finished 



i 
i 
< 

< 

i 

i 

i 
i 
< 

< 

I 
I 

4 

< 

4 
< 
< 
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DMT ALL — Dismount all mounted devices for job 



1 

2 

3 

4 

5 

6 

7 

8 006732 010546 

9 
10 
11 

12 006734 004737 014776' 

13 006740 103402 
14 

15 

16 

17 006742 004737 006752' 

18 

19 

20 

21 006746 01260!) 

22 006750 000207 



The DMTSUB subroutine is called to do the actual work of dismounting 

a file structure. 

Inputs: 
FILDVU = Device/Unit number info for device being dismounted. 

DMTSUB : MOV R 5, - ( SP ) 

Locate entry for device in cached-device table. 



CALL CSHTST 
BCS 9* 



; Locate entry for device in cached dev table 
; Br if device is not mounted 



9$: 



Device is mounted* dismount it. 

CALL DMTDEV ; Dismount the device 

F i n i s h e d 

MOV <SP>+>R5 

RETURN 
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DMTDEV — Remove entry from cache table 



i 



4 








5 








6 








7 








8 


006752 


010246 




9 


006754 


010346 




10 








11 








12 








13 


006756 


113703 


OOOOOOG 


14 


006762 


004737 


015112' 


15 


006766 


140312 




16 








17 








IS 








19 


006770 


010503 




20 


006772 


062703 


0000000 


21 


006776 


012700 


0000000 


22 


007002 


105723 




23 


007004 


001042 




24 


007006 


077003 




25 








26 








27 








28 








29 


007010 


005765 


0000000 


30 


007014 


001011 




31 


007016 


016500 


0000000 


32 


007022 


120037 


OOOOOOG 


33 


007026 


001004 




34 


007030 


000300 




35 


007032 


120037 


0000010 


36 


007036 


001425 




37 








38 








39 








40 








41 


007040 


00573/ 


0000000 


42 


007044 


00 1 404 




43 


007046 


016503 


OOOOOOG 


44 


007052 


004777 


OOOOOOG 


45 








46 








47 








48 


007056 


005065 


OOOOOOG 


49 








50 








51 








v?c 


007062 


013700 


OOOOOOG 


53 


007066 


020560 


OOOOOOG 


54 


007072 


001004 




55 


007074 


005060 


OOOOOOG 


56 


007100 


005060 


OOOOOOG 


57 


007104 


016000 


OOOOOOG 



. SBTTL DMTDEV — Remove entry from cache table 

DMTDEV is called to remove a particular entry from the mount table. 

Inputs: 
R5 = Pointer to cached device entry to be removed. 



DMTDEV: MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



Reset mount flag for our job. 



MOVB 
CALL 
BICB 



CORUSR, R3 
CDJFLG 
R3, (R2) 



Get our job index number 
GET MOUNT FLAG FOR OUR JOB 
RESET MOUNT FLAG FOR OUR JOB 



1$: 



See if any other users still have device mounted. 

/Point to bytes with mount flags 

GET # BYTES WITH MOUNT FLAGS 

ANY OTHER JOBS HAVE THIS DEVICE MOUNTED? 

BR IF YES 



MOV 


R5, R3 


ADD 


#CD*JOB, R3 


MOV 


#CD$$UB, RO 


TSTB 


(R3) + 


BNE 


9* 


SOB 


RO, 1* 



TST 


CD*BAS(R5) 


BNE 


2* 


MOV 


CD*DVU<R5),R0 


CMPB 


RO, SYINDX 


BNE 


2* 


SWAB 


RO 


CMPB 


RO, SYUNIT+1 


BEG 


9* 



No other jobs have this device mounted. 

Check if this is the SY disk. If so, don't dismount it. 

IS THIS A LOGICAL DISK? 

BR IF YES 

GET DEVICE # AND UNIT # 

IS THIS SY DEVICE? 

BR IF NOT 

GET UNIT # TO LOW-ORDER BYTE 

IS THIS SY UNIT? 

BR IF YES — DON'T DISMOUNT SY 

This is not SY device, do the actual dismount. 

Tell data caching facility to clean out the data cache for this device. 

»■$: JST CSHALC ; Is data caching genned into system? 

Br if not 

Get device and unit number for CSHCLN 
Clean out the data cache 

Say device is no longer mounted 

5«; CLR CD$DVU(R5) > SAY DEVICE IS NOT MOUNTED 

Remove file entries for this device from directory cache. 



TST 


CSHALC 


BEQ 


5* 


MOV 


CD*DVU<R5),R3 


CALL 


©CSHCLN 



MOV CSHHD, RO 

3$: CMP R5, FC*CDX<RO> 

BNE 4* 

CLR FC*CDX<RO> 

CLR FDfNAM(RO) 

4$: MOV FC*LNK(RO),RO 



POINT TO FIRST CACHED DIRECTORY ENTRY 

IS FILE ON THIS DEVICE? 

BR IF NOT 

REMOVE ENTRY FROM CACHED DIRECTORY 

; CHAIN TO NEXT ENTRY 
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DMTDEV — Remove entry from cache table 



58 007110 001366 

59 

60 

61 

62 007112 012603 

63 007114 012602 

64 007116 000207 



BNE 

Fin i s h e d 



9$: 



MOV 
MOV 
RETURN 



3* 



(SP)+, R3 
<SP>+, R2 



j BR IF THERE IS ANOTHER 



TSUSR - 


— File 


operation EMT's 


MNTCOH - 

1 

2 

3 


-•- MOUNT/DISMOUNT common 








4 








5 








6 








"7 

/ 








a 








9 








10 


007120 


010146 




11 
12 
13 


007122 


010446 










14 








15 


007124 


004737 


007770 ' 


16 








17 








18 








1? 


007130 


013701 


0000020 


20 


007134 


004737 


007532' 


2.1 








22 








23 








24 


007140 


004737 


010212' 


25 


007144 


103006 




26 


007146 


004737 


015214' 


27 


007152 


012700 


177776 


28 


007156 


000137 


015156' 


29 








30 








31 








32 


007162 


1 1 0437 


002014' 


33 


007166 


1 1 0037 


002015' 


34 








35 








36 








37 


007172 


012604 




38 


007174 


012601 




3? 


007176 


000207 





MACRO 
s e t u p 



V05. 04 Friday lS-Dec-87 15:35 Page 25 

. SETTL MNTCCM -— MOUNT/DISMOUNT common setup 

Do common setup for Mount/Dismount EMT's. 

Outputs: 
USR data base locked for exclusive access. 
FILSPC -File spec passed with EMT. 
F1LDVU = Device index # & Unit #. 



MNTCOM: MOV 
MOV 



R 1 , - < SP ) 
R4, -<SP) 



Gain exclusive access to USR data base. 

CALL GETUSR » GET EXCLUSIVE USE OF USR 

Move file spec to FILSPC and perform any assigns. 



MOV EMTBLK+2, Rl 
CALL GETSPC 



i POINT TO DEVICE SPEC ARG 
i SET UP FILSPC 



Check to see if device is leqal. 



CALL 


CHKDEV 


BCC 


1* 


CALL 


ERRNAM 


MOV 


#-2, RO 


JMP 


USRERR 



; LOOK UP THE DEVICE NAME 

; BR IF DEVICE IS OK 

;SET FILE SPEC FOR TSKMON ERROR MESSAGE 

; INVALID DEVICE NAME 



Build FILDVU word. 



1*: 



MOVB 


R4, FILDVU 


MOVB 


RO, FILDVU+i 


Finished 





i SET DEVICE INDEX # 
; SET UNIT # 



MOV <SP)+, R4 
MOV (SP>+, Rl 
RETURN 



4 
€ 

< 

i 

i 
i 
< 
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CPYMNT — Copy mount entries from another job 



3 
4 
5 
6 
7 
8 
9 007200 

10 007202 

11 007204 

12 007206 

13 007210 
14 

15 
16 

17 007212 

18 007216 

19 007220 

20 007224 

21 007226 

22 007230 

23 007234 

24 007240 

25 007242 

26 007246 

27 007252 
28 

29 
30 

31 007254 

32 007256 

33 007260 

34 007262 

35 007264 



010246 
010346 
0.10446 
010546 
010204 



013705 
010403 
004737 
130312 
001405 
1 1 3703 
004737 
150312 
062705 
020537 
103761 



012605 
012604 
012603 
012602 
000207 



. SBTTL CPYMNT — Copy mount entries from another job 

CPYMNT is called to mount for the current job all of the devices 
mounted by another job. 

Inputs: 
R2 = Job index number of job whose mounts are to be copied. 



CPYMNT: MOV 
MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP) 
R5, -<SP) 
R2, R4 



0000000 
015112' 



0000000 
015112' 

0000000 
0000000 



> Save job index in R4 

Begin to search through mount table for mounts for other job 

Point to start of mount table 
1*: MOV R4> R3 i Get # of job we are copying from 

Oet job flag for other job 
Is this entry mounted by other job? 
Br if not 

Get our job index # 
Get mount bit for our job 
Say device is mounted by our job 
Point to next mount table entry 
Checked all entries? 
Br if not 





MOV 


CSHDEV, R5 




MOV 


R4, R3 




CALL 


CDJFLG 




BITB 


R3, <R2) 




BEG 


2* 




MOVB 


CORUSR, R3 




CALL 


CDJFLG 




BISB 


R3, (R2) 




ADD 


#CD**SZ, R5 




CMP 


R5, CSHDVN 




BLO 


1* 


F 


i n i s h e d 






MOV 


<SP>+, R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




MOV 


<SP)+> R2 




RETURN 
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1 
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from dir cache 



3 
4 








5 








6 








7 








S 








9 








10 








11 








12 


007266 


010546 




13 


007270 


013746 


002014' 


14 








15 








16 








17 


007274 


1 1 0237 


002014' 


IS 


007300 


1 1 6300 


0000000 


19 


007304 


042700 


177770 


20 


007310 


1 1 0037 


002015' 


21 








22 








23 








24 


007314 


004737 


014776' 


Ci. t? 


007320 


103414 




26 








27 








28 








29 


007322 


013700 


0000000 


30 


007326 


020560 


0000000 


31 


007332 


001004 




32 


007334 


005060 


OOOOOOG 


33 


007340 


005060 


0000000 


34 


007344 


016000 


OOOOOOG 


35 


007350 


00 1 366 




36 








37 








38 








39 


007352 


012637 


002014' 


40 


007356 


012605 




41 


007360 


000207 





. SBTTL CLRDIR 



Remove directory entries from dir cache 



This routine is called when a user-mode program writes to a directory 

structured device that has been opened in non-file-structured mode. 

It cleans out all directory cache entries for the device that is being 

written to. 

Inputs: 
R2 - Device index number 
R3 = Pointer to Channel Status Block being used by write 



CLRDIR: MOV 

MOV 



R5, -<SP> 
FILDVU, -<SP> 



; Save current device/file index info 
Set up device and unit numbers in FILDVU 



MOVB R 2, FILDVU 

MOVB C. DEVQ(R3),R0 

BIC # A C<7>, RO 

MOVB RO, FILDVU+1 



Set device index number 
Get device unit number 
Clear out all but unit number 
Set unit number 



See if this device is beinq cached 



CALL 
BCS 



CSHTST 
9* 



;Is this device being cached? 
; Br if not 



Clean out directory cache entries for this device 



1*: 



?*: 



9*: 



MOV 


CSHHD, RO 


CMP 


R5» FC*CDX<RO> 


BNE 


2* 


CLR 


FC*CDX<RO) 


CLR 


FD*NAM<RO) 


MOV 


FC*LNK<RO>, RO 


BNE 


1* 


Fini shed 




MOV 


<SP>+, FILDVU 


MOV 


<SP>+» R5 


RETURN 





/Point to 1st cached dir entry 

i Is file on this device? 

; Br if not 

; Remove entry from directory cache 

iChain to next cache entry 
; Loop if more to check 



USRCOM 



File operat i o r i 
Common setup 



EM'T' 
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1 
' 2 

3 

4 

5 

6 

7 

9 

9 
10 
1.1. 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 

26 007362 

27 007364 
23 

29 
30 
31 
32 
33 
34 

35 007374 

36 007402 

37 007404 
33 007406 
39 

40 
41 

42 007412 

43 007416 

44 007422 
45 

46 
47 

48 007426 

49 007432 

50 007434 

51 007440 

52 007444 
53 

54 

55 007450 

56 007454 
57 



. SBTTL USRCOM 



Common setup 



USRCOM is called to perform the common setup operation for 
. lookup* . enter* . delete and . rename emts. 
It performs the following functions: 

Claim the USR data base for current user. 

Make sure channel is closed. 

Move file spec to FILSPC buffer and perform any assigns. 

Test that the specified device is legal. 

Mark channel open and set up device index and unit #. 



I n p u t s : 
EMTBLK = Emt argument block. 
CHNADR = Address of CSW for current channel. 

Outputs: 
Channel area = Marked as open* device index # and unit # set up. 
FILSPC = File spec after any assign performed. 
F1LDVU = Device index # in low-byte, unit # in high byte. 
ASNSIZ - Size specified with ASSIGN command for logical device. 

if no size was specified with assign. 
RO = Unit number of device being accessed. 
R3 - Address of CSW for channel. 
R4 = Index into device table for device being opened. 



0101 46 
1 3703 



0000000 



USRCOM: MOV 
MOV 



R 1 , - < SP ) 
CHNADR* R3 



007370 004737 007770 ' 



032763 
001403 
005000 
000137 



013701 
042701 
004737 



004737 
103006 
004737 
012700 
000137 



110437 
1 1 0037 



0000000 0000000 



015156' 



* GET ADDRESS OF CURRENT CHANNEL AREA 

Claim USR data base for us 

CALL GETUSR * GAIN EXCLUSIVE ACCESS TO USR DATA BASE 

Make sure channel is closed now, 

BIT #CS*OPN*C. CSW<R3>* IS CHANNEL OPEN NOW? 

BEG 2* * BR IF NOT OPEN NOW 

CLR RO * RETURN ERROR CODE OF O 

JMP USRERR 

Move file spec to FILSPC and apply any assigns. 



0000020 
000001 
007532 ' 



010212' 

015214' 

177776 

015156' 



002014' 
002015' 



2$: 



MOV 
BIC 
CALL 



EMTBLK+2, Ri 
#1* Rl 

GETSPC 



GET ADDRESS OF FILE SPEC IN USER'S AREA 
MAKE SURE ADDRESS IS EVEN 
GET FILE SPEC TO FILSPC 



Now check to see if the device is legal. 

, IS THE DEVICE LEGAL? 

*BR IF RECOGNIZED DEVICE 

, SET FILE SPEC FOR TSKMON ERROR MESSAGE 

} INVALID DEVICE 

* (At this point R4 has device table index and RO has device unit #) 

* Set up FILDVU word. 

1*: MOVB R4* FILDVU * SET DEVICE # 
MOVB RO, FILDVU+1 * SET UNIT # 



CALL 


CHKDEV 


BCC 


1* 


CALL 


ERRNAM 


MOV 


#-2* RO 


JMP 


USRERR 



TSUSR - 


-- File 


operation EMT's MACRO VO? 


USRCOM - 


— Common setup 




58 






> 


59 






i 


60 


007460 


.1 .1 0063 


OOOOOOG 


61 


007464 


010463 


OOOOOOG 


62 


007470 


052763 


OOOOOOG OOOOOOG 


63 


007476 


005063 


OOOOOOG 


64 


007502 


005063 


OOOOOOG 


65 


007506 


005063 


OOOOOOG 


66 


007512 


105063 


OOOOOOG 


67 








68 








69 








70 
71 


007516 


004737 


010432' 








73 








74 


007522 


004737 


010566' 


75 








76 








77 








73 


007526 


012601 




79 


007530 


000207 
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Set up information in channel. 



MOVB 

MOV 

BIS 

CLR 

CLR 

CLR 

CURB 



RO, C. DEVQCR3) J SET DEVICE UNIT # 

R4,C. CSW<R3> ;SET DEVICE TABLE INDEX # IN CSW 

#CS*OPN, C. CSW<R3>; MARK CHANNEL AS OPEN 



C. 5BLK<R3> 
C. LENG(R3> 
C. USED<R3> 
C. NUMQ(R3) 



STARTING BLOCK # OF FILE 

ALLOCATED LENGTH OF FILE 

NO BLOCKS WRITTEN TO FILE YET 

NO I/O OPERATIONS QUEUED ON CHANNEL YET 



See if this device is allocated to some other user 

CALL CHKALC ; Check for allocation problems 

See if we are authorized to access this device and file. 

CALL CHKACC ; CHECK FOR ACCESS AUTHORIZATION 

Return successfully 

MOV (SP)+, Kl 

RETURN 



€ 



TSUSR 
GETSPC 



— F i i c o p e r a t i o n EMT 
■•- Get file sp<?t: from 



s MACRO V05. 04 
user ' s area 
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1 
2 
3 
4 



7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



007532 
007534 
007536 



007542 
007546 



007552 
007556 
007560 
007566 
007570 
007574 
007600 
007602 
007606 
007612 
007614 



007616 
007622 
007626 
007632 
007634 
007640 
007646 
007652 
007654 
007660 
007664 
007666 
007672 



007676 
007700 
007702 



1 1 46 
010246 
005037 



1 2702 
004737 



013700 
001447 
032737 
001043 
012702 
020062 
00 1 406 
062702 
020227 
103770 
000430 



012701 
016211 
016200 
001421 
010061 
016261 
016200 
00 1 402 
01006.1 
016200 
001404 
010061 
010037 



012602 
01260.1 
000207 



. SBTTL GETSPC — Get file spec from user's area 

GETSPC is called to move a file specification from the user's address 
space to the FILSPC buffer area. 

Inputs: 
Rl - Address of file spec in user's area. 

Outputs: 
FILSPC = File spec after processing. 
ASNSIZ ~ Size specified with ASSIGN for logical device <0 if not spec) 



002044 ' 



0000000 
007704' 



000000G 

0000000 OOOOOOG 

0000000 
OOOOOOG 

OOOOOOG 
OOOOOOG 



GETSPC : MOV 
MOV 
CLR 



R 1 , - i SP ) 
R2, -(SP) 

ASNSIZ 



i NO ASSIGN SIZE YET 
Copy the file specification from the user's area into FILSPC. 



MOV #FILSPC, R2 
CALL CPYSPC 



; Copy spec into FILSPC 

;Copy file spec from user's area 



Apply any assignments to this file spec. 



MOV FILSPC, RO 

BEG 4* 

BIT #AF*BYA, RUNFLG 

BNE 4* 

MOV #A5NTBL, R2 

J*: CMP RO, AT*L0G<R2) 

BEQ 3* 

ADD #AT**SZ, R2 

CMP R2, #ASNEND 

BLO 2* 

BR 4* 



GET DEVICE NAME 

BR IF NULL NAME 

Should we bypass logical assignment? 

Br if yes 

POINT TO START OF ASSIGN TABLE 

SEARCH FOR DEVICE NAME IN ASSIGN TABLE 

BR IF FOUND 

TRY NEXT ENTRY 

DONE ALL? 

BR IF NOT 

NAME WAS NOT ASSIGNED 



Name was assigned. Substitute assigned name. 



OOOOOOG 
OOOOOOG 
OOOOOOG 

000002 

000002G 

OOOOOOG 

000006 
OOOOOOG 

000010 
002044 ' 



3$: 



000004 



8$: 



MOV 
MOV 
MOV 
BEG 
MOV 
MOV 
MOV 
BEG 
MOV 
MOV 
BEQ 
MOV 
MOV 

finished 



4*: 



MOV 
MOV 
RETURN 



#FILSPC, Rl 

AT*DEV<R2), <R1) 

AT$FIL<R2), RO 

4* 

RO, 2(R1) 

AT*FIL+2(R2), 4<R 

AT*EXT<R2), RO 

8* 

RO, 6<R1) 

AT$SIZ<R2>, RO 

4* 

RO, 8. (Rl) 

RO, ASNSIZ 



< SP ) +, R2 
(SP)+, Rl 



POINT TO AREA WITH FILE SPEC 
PUT IN REAL DEVICE NAME 
WAS FILE NAME ASSIGNED? 
BR IF NOT 
PUT IN FILE NAME 
1) 
WAS FILE EXTENSION ASSIGNED? 
BR IF NOT 
PUT IN FILE EXT 
WAS FILE SIZE ASSIGNED? 
BR IF NOT- 
PUT IN FILE SIZE 
RETURN ASSIGN SIZE IN ASNSIZ 



( 

4 
4 



TSUSR - 
CPYSPC - 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

1? 

20 

21 

ii 

23 
24 
25 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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007704 



007704 
007706 
007712 
007714 
007720 



007724 
007732 
007734 
007740 
007742 
007744 
007746 
007752 
007754 
007760 
007762 
007764 



010100 
004737 
103004 
012700 
000137 



032737 
001410 
013700 
160100 
006200 
001410 
020027 
101402 
012700 
106521 
012622 
077003 



SBTTL CPYSPC 



Copy file specification from user's area 



0000000 

177766 
015144' 



J Copy a 5-word file specification from the user's area into a 
; system buffer. 

; Inputs: 

> Rl ~ Address of file specification in user's area. 

; R2 = Address of 5-word buffer to receive specification. 

> 

CPYSPC: 

i Hake sure address of file spec is legal 

GET ADDRESS OF FILE SPEC BUFFER 
MAKE SURE ADDRESS IS LEGAL 
BR IF ADDRESS IS OK 
GET ERROR ABORT CODE 
ABORT THE JOB 

Copy file specification from user's area to FILSPC. 



MOV 


Rl, RO 


CALL 


UACHKW 


bcc 


5* 


MOV 


#-12, RO 


JMP 


USRCLS 



000000G OOOOOOG 5$: 
OOOOOOG 



000004 
000004 



007766 000207 



6*: 
1$: 



F i ?i i s h e d 
9*: RETURN 



BIT 


#UMODE, EMTPS 


BEQ 


6* 


MOV 


ODTBAS, RO 


SUB 


Rl, RO 


ASR 


RO 


BEG 


9* 


CMP 


RO, #4, 


BLOS 


1* 


MOV 


#4. ,R0 


MFPD 


<R1> + 


MOV 


(SP)+, <R2)+ 


SOB 


RO, 1* 



WAS EMT DONE IN USER OR KERNEL MODE? 

BR IF KERNEL MODE 

GET THE USER'S HIGH MEMORY LIMIT 

SUBTRACT ADDRESS OF FILE SPEC AREA 

CONVERT TO NUMBER OF WORDS 

BR IF NOTHING TO MOVE 

COMPARE WITH SIZE OF FULL FILE SPEC 

BR IF WE MUST MOVE LESS BECAUSE OF MEMORY TOP 

# WORDS TO MOVE 

GET A WORD FROM USER'S AREA 

MOVE TO FILSPC 



TSUSR 
GETUSR 
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.1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL GETUSR 



Claim usr data base for our job 



007770 010546 



007772 

010000 113700 

010004 001426 

010006 120037 

010012 001426 



GETUSR is called to gain exclusive access to the usr data base. 
If the data base is currently in use by some other job, our job 
is suspended until it is freed. 

3ETUSR: MOV R5, ~<SP> 

See if we can access the USR 

4*: 



0000000 
OOOOOOG 



DISABL 

MOVB USR JOB, RO 

BEQ 1* 

CMPB RO, CORUSR 

BEQ 2* 



DISABLE INTERRUPTS 
IS USR AVAILABLE NOW? 
BR IF YES 

DO WE ALREADY OWN USR? 
BR IF YES 



Someone else owns the USR now. 
Suspend our job until we can get it. 



010014 

010022 113705 

010026 105037 

010032 012700 

010036 004737 

010042 004737 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



010046 020537 OOOOOOG 

010052 001347 

010054 110537 OOOOOOG 

010060 000744 



ENABL 




MOVB 


EXCJOB, R5 


CLRB 


EXCJOB 


MOV 


#S*QUSR, RO 


CALL 


QNSPNX 


CALL 


CHKABT 


CMP 


R5j CORUSR 


BNE 


4* 


MOVB 


R5, EXCJOB 


BR 


4* 



ENABLE INTERRUPTS 

REMEMBER IF WE HAVE EXCLUSIVE SYS USE 

ENABLE OTHER JOBS TO RUN 

PUT US IN QUEUE FOR USR 

SUSPEND JOB AND WAIT FOR USR 

WERE WE ABORTED WHILE ASLEEP? 

DO WE WANT EXCLUSIVE ACCESS TO SYSTEM? 

LOOP IF NOT 

GET EXCLUSIVE ACCESS TO THE SYSTEM 

GO TRY TO GET USR NOW 



010062 
010070 
010076 005237 



113737 OOOOOOG OOOOOOG 1*: 

2$: 
002026 ' 



We can get USR now. 

CORUSR, USR JOB 

USR C NT 
Make sure USR is not being called from a completion routine. 



MOVB 

ENABL 

INC 



i i CLAIM USR FOR US 

ENABLE INTERRUPTS 

REMEMBER # TIMES WE CLAIMED USR 



010102 105737 

010106 001404 

010110 012700 

010114 000137 



010120 012737 



TSTB 


CURCP 


BEQ 


3* 


MOV 


#-13, RO 


JMP 


USRERR 



010126 
010130 



012605 
000207 



OOOOOOG 

177765 
015156' 



Initialize USR data base. 

177777 000002' 3*: MOV #-l,CURSEG 

F i n i s h e d 

MOV <SP)+, R5 
RETURN 



ARE WE IN A COMPLETION ROUTINE NOW? 

BR IF NOT 

ABORT IF IN COMPLETION ROUTINE 



; NO DIR SEG IN BUFFER NOW 



010132 



. SBTTL FREUSR — free the USR 
FREUSR is called to release our ownership of the USR data base. 
REUSR: DISABL a ; DISABLE INTERRUPTS 



TSUSR - 


— File 


operation EMT's MACRO V 


FREUSR - 


-- Free 


the USR 




58 


010140 


.1.23737 


OOOOOOG OOOOOOG 


59 


010146 


001015 




60 


010150 


005337 


002026 ' 


61 


010154 


002012 




62 


010156 


105037 


OOOOOOG 


63 








64 








65 








66 


010162 






67 


010170 


012700 


OOOOOOG 


68 


010174 


004737 


OOOOOOG 


69 


010200 


000207 




70 








7.1 








72 








73 


010202 






74 


010210 


000207 





iday 


18- 


-Dec-87 


15: 


35 


Pag 


b 31-1 


CMPB 




COR USR, 


USRJOB 




; DO WE OWN USR? 


BNE 




1* 








; BR IF NOT 


DEC 




USR C NT 








; IS THIS LAST UNLOCK OF USR? 


BGE 




1* 








i BR IF NOT 


CLRB 




USRJOB 








; SAY USR IS FREE 



Restart any jobs waiting for USR 



ENABL 
NOV 
CALL 
RETURN 



#S*QUSR, RO 
UREGO 



ENABLE INTERRUPTS 
QUEUE OF WAITING JOBS 
RESTART WAITING JOBS 



Fini shed 



1$: 



ENABL 
RETURN 



; ENABLE INTERRUPTS 



TSUSR — 

CHKDEV — 

1 



3 
4 
5 
6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

.18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
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010212 
010214 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



WC.J.U 

0222 
0224 
0230 
0234 
0236 
0240 
0244 
0246 
0252 
0254 



01 

01 
01 
01 
01 
01 
01 
01 
01 



0260 
0264 
0266 
0272 
0274 
0300 
0302 
0304 
0310 



01 
01 
01 
01 
01 
01 



03.12 
0316 
0322 
0324 
0330 
0332 



010146 
1 0246 



013701 
005000 
07 1 027 
012702 
005701 
00 1 406 
162701 
010102 
020227 
101063 
070027 



020137 
001403 
020137 
00 1 007 
013704 
005702 
002014 
113702 
000411 



013704 
020164 
00 1 404 
1 62704 
002372 
000433 



SBTTL CHKDEV 



Sec? if requested device is legal 



CHKDEV is called to see if access to the device specified by the 
file spec in FILSPC is legal. 

Inputs: 
FILSPC = Device file specification 

Outputs: 
RO = Unit number of device 
R4 ~ Index into device tables 
C--flag set on return if the device is not recognized. 



CHKDEV: MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



Get device name and split off unit number. 



0000000 

000050 
177777 



000036 
000007 
000050 



6*: 



MOV 

CLR 

DIV 

MOV 

TST 

BEG 

SUB 

MOV 

CMP 

23 HI 

MUL 



FILSPC, Rl 

RO 

#50, RO 

#-l,R2 

Rl 

6* 

#36, Rl 

Rl, R2 

R2, #7 

8* 

#50, RO 



GET DEVICE NAME (RAD50) 

SET FOR DIVIDE 

SPLIT OFF LOW-ORDER RAD50 CHARACTER 

ASSUME NO UNIT NUMBER SPECIFIED 

WAS A UNIT NUMBER SPECIFIED"? 

BR IF NOT 

CONVERT RAD50 DIGIT TO BINARY VALUE 

GET BINARY VALUE OF UNIT NUMBER 

RESTRICT UNIT NUMBER TO RANGE 0-7 

BR IF INVALID UNIT NUMBER 

GET DEVICE NAME WITHOUT UNIT NUMBER 



The radSO device name less unit number is now in Rl. 

R2 has the binary value of the unit number or -1 if no unit number 

was specified. 

Translate "SY: " and "DK: " to physical device. 



002020 •' 
002016" 
0000000 

00000 1G 



CMP R1,R50DK 

BEG 2* 

CMP R1,R50SY 

BNE 3* 

MOV SYINDX,R4 

TST R2 

BGE 7* 

MOVB SYUNIT+1,R2 

BR 7$ 



IS DEVICE NAME "DK"? 

BR IF YES 

IS DEVICE NAME "SY"? 

BR IF NOT 

GET SY DEVICE INDEX NUMBER 

DID USER SPECIFY A UNIT NUMBERS 

BR IF YES 

GET SYSTEM DEVICE UNIT NUMBER 



Look up device name in permanent device name table. 



0000000 
0000000 

000002 



3$: 
5*: 



MOV 
CMP 
BEG 
SUB 
BGE 
BR 



NUMDEV, R4 

Rl, PNAME<R4) 

7% 

#2, R4 

5* 

8* 



GET INDEX NUMBER OF LAST DEVICE 

SEARCH FOR NAME IN TABLE 

BR IF FOUND 

TRY NEXT ENTRY 

LOOP IF MORE TO CHECK 

Invalid device 



56 
57 



Found device name. Translate no unit number into # 0. 



TSUSR - 


— F 1 1 e 


ope rati on EMT ' s 


CHKDEV - 


— See i 


f reques 


ted d e v i 


58 


010334 


010200 




59 


010336 


00200.1 




60 


1 0340 


005000 




61 








62 








63 








64 








65 


010342 


020437 


OOOOOOG 


66 


010346 


00 1 006 




67 


010350 


i 0002 




68 


010352 


006302 




69 


010354 


005762 


0000000 


70 


010360 


00 1 420 




71 

71 


010362 


000415 




73 








74 








75 








76 


010364 


010002 




77 


1 0366 


020437 


OOOOOOG 


78 


1 0372 


001405 




79 


010374 


020437 


OOOOOOG 


80 


010400 


001006 




81 


010402 


062702 


000010 


U& 


010406 


006302 




83 


010410 


00 5762 


OOOOOOG 


84 


010414 


00 1 402 




85 








86 








87 








83 


010416 


000241 




89 


010420 


000401 




90 








91 








92 








93 


010422 


000261 




94 








95 








96 








97 


010424 


012602 




98 


010426 


012601 




99 


1 0430 


000207 
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7*: 



MOV 
BOE 
CLR 



R2, RO 
1* 

RO 



i GET UNIT NUMBER VALUE 

; BR IF UNIT NUMBER WAS SPECIFIED 

; BAY UNIT # ~ IF NONE SPECIFIED 



If the device is a logical disk (LDn), check to make sure the 
particular unit is mapped to a file 



1*: 



CMP R4, LDDEVX 

BNE 11* 

MOV RO, R2 

ASL R2 

TST LDPDEV<R2> 

BEG 8* 

BR 9$ 



IS THIS A LOGICAL DISK? 

BR IF NOT 

GET UNIT NUMBER 

CONVERT TO WORD TABLE INDEX 

IS UNIT MAPPED TO A FILE? 

BR IF NOT 



If the device is a communications line <CLn>, check to make sure 
the specified CL unit is assigned to some line. 



U*: MOV RO, R2 

CMP R4, CLDEVX 

BEG 12$ 

CMP R4, C1DEVX 

BNE 9* 

ADD #8. , R2 

12*: ASL R2 

TST CL*LIX<R2> 

BEG 8* 



This device access is ok 



?*: 



CLC 
BR 



10* 



Invalid device 



8*: 



5EC 



Finished — Return 



10*: 



MOV 
MOV 
RETURN 



(SP)+, R2 
<SP)+, Rl 



i Get uni t number 

; Is this a CL unit? 

; Br if yes 

i Is this a CI unit 7 

} Br if not 

i Bias unit number by 8 for CI 

j Convert to word table index 

; Is this unit assigned to some line? 

; Br if not 



i SIGNAL GOOD RETURN 



i SIGNAL INVALID DEVICE NAME 



< 

€ 



TSUSR — File operation EMT's MACRO V05. 04 
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3 








4 
5 








6 








7 








8 








9 








10 


010432 


010046 




11 


010434 


010246 




12 








13 








.1.4 








15 


010436 


105737 


002014' 


16 


010442 


001446 




17 








18 








19 








20 


1 0444 


012702 


0000000 


21 


010450 


013700 


002014' 


22 


010454 


020062 


0000000 


23 


010460 


001421 




24 


010462 


062702 


OOOOOOG 


25 


010466 


020227 


OOOOOOG 


26 


010472 


103770 




27 








28 








29 








30 








31 


010474 


1 1 3700 


002014' 


32 


010500 


032760 


OOOOOOG OOOOOOG 


33 


010506 


001424 




34 


010510 


004737 


015214' 


35 


010514 


01270O 


177751 


36 


010520 


000137 


015144' 


37 








38 








39 








40 








41 


010524 


1 1 6202 


OOOOOOG 


42 


010530 


1 1 3700 


OOOOOOG 


43 


010534 


5. 26260 


OOOOOOG OOOOOOG 


44 


010542 


00 1 406 




45 


010544 


004737 


015214' 


46 


010550 


012700 


177752 


47 


010554 


000137 


015144' 


48 








49 








50 








51 


010560 


01 2602 




52 


010562 


012600 




53 


010564 


00020/ 





SBTTL. CHKALC 



Check for device allocation 



CHKALC is called to determine if a device being accessed is available 

to the current job due to allocation considerations. 

IP an allocation failure is detected/ a fatal error return is taken. 

I n p u t s : 
FILDVU = Device index # and unit # of device to be checked. 



CHKALC: MOV 
MOV 



RO, -<SP> 
R2, -<SP) 



Don't do allocation test for TT 



TSTB 

BEG 



FILDVU 
9* 



; Device # ==> TT 

; Br if this device is TT 



See if this device is in the allocation table. 

iPoint to start of allocation table 
;Get device/ unit id 
1*: CMP RO, AD*DVU(R2> ;Is this entry for this device? 

i Br if yes 

iPoint to next table entry 
; Have we checked all entries? 
> Br if not 

This device is not in the allocation table. 

See if it must be allocated before it can be accessed. 



MOV 


#ALCTBL, R2 


MOV 


FILDVU, RO 


CMP 


RO, AD*DVU(R2) 


BEG 


2* 


ADD 


#AD**SZ, R2 


CMP 


R2, #ALCEND 


BLO 


1* 



MOVE 

BIT 

BEG 

CALL 

MOV 

JMP 



FILDVU, RO ; Get the device index number 

#DX$RAL, DVFLAG<RO); Is allocation required before access? 

9* ; Br if not 

ERRNAM j Set file spec for Kmon error message 

#-27, RO ; Set error code 

USRCLS i Error return from USR 



This device is in the allocation table. 

See if it is allocated to our job or to another job. 



1%: 



MOVB 

MOVB 

CMPB 

BEG 

CALL 

MOV 

JMP 



AD*J0B<R2>, R2 ; Get # of job that owns the device 
CORUSR, RO ; Get current job index number 
LNPRIM<R2),LNPRIM<R0> iDo we own the device? 



9* 

ERRNAM 
#-26, RO 
USRCLS 



Br if yes 

Set file spec for Kmon error message 

Set error code 

Error return 



Device access is ok 



«?*: 



MOV 


( SP ) +, R2 


MOV 


<SP>+, RO 


RETURN 





< 
i 
f 

« 

< 
f 
i 
< 

i 
l 
l 
< 

i 
i 
t 
i 
i 



TSUSR 
CHKACC 
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4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 

22 

I V.J 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
49 
49 
50 
51 
52 
53 
54 
55 
56 
57 



10566 
10570 
10572 
10574 
10576 
1 0600 
1 0602 



10606 
10612 
10614 
10616 
10620 
10626 
10630 



1 0636 
10644 



10646 
10654 
10656 



1 0662 
10670 
10672 
10700 
1 0702 
10706 
10710 
10714 
10716 
10722 
1 0726 



01.0046 
O 1 1 46 
010246 
010346 
010446 
010546 
113701 



020437 
001011 
010002 
006302 
032762 
00 1 403 
052763 



032761 
00 1 402 
000137 



032737 
00 1 022 
032761 
001016 
1 20437 
001013 
120037 
001010 
013702 

\ ) &:, '■■J c£ w/ / 

001525 



. SBTTL CHKACC — Check legality of file access 

CHKACC is called to see if 4 a user is authorized to access a 
certain device and fi.lf>. 

I n p u t s : 
RO = Unit number of device being accessed. 
R4 =• Device index number of device being accessed. 
Fl'LSPC ~ Device-file specification of file being accessed. 
R3 = Address of channel block associated with operation. 

Outputs: 
Abort if access denied. 
CS*R0N set in channel CSW if read-only access authorized. 



000000G 



0000000 



CHKACC: MOV 


RO, -<BP> 


MOV 


R 1 , - ( BP ) 


MOV 


R2, ~<SP) 


MOV 


R3, -<SP> 


MOV 


R4, ~(SP) 


MOV 


R5, -<SP> 


MOVB 


CORUSR, Rl 



0000000 0000000 
0000000 ooooooo 



i GET JOB INDEX NUMBER 

See if we are accessing a logical disk with NOWRITE attribute set. 

CMP R4, LDDEVX ; IS THIS A LOGICAL DISK? 

BNE 13$ ; BR IF NOT 

MOV RO, R2 # GET UNIT NUMBER 

ASL R2 i CONVERT TO WORD TABLE INDEX 

BIT #LD*RON, LDFLAG<R2) ; WAS /NOWRITE SPECIFIED FOR DISK? 

BEG 13* } BR IF NOT 

BIS #CS»RON, C. CSW<R3); SAY READ-ONLY ACCESS ALLOWED 

Allow access to all devices if user has BYPASS privilege 



032737 OOOOOOO OOOOOOG 13*: 

00 1 004 



BIT #PG*BYP, PRIVCO > Does user have BYPASS privilege? 
BNE 19* .: Br if yes 



See if TSXUCL is trying to access its command file 



OOOOOOO OOOOOOG 
011224' 



19*: 



BIT #*UCLRN, LSW7<Rl)i IS TSXUCL RUNNING? 

BEQ 16* > Br if not 

JMP 9* j Allow full file access 



See if a non-privileged user is trying to access a SYS or TSX file on SY: 



OOOOOOO OOOOOOG 16*: 

OOOOOOO OOOOOOG 

OOOOOOG 

00000 1G 

0000060 
002022 ' 



BIT 


#PO*SYS> PRIVCO 


BNE 


1* 


BIT 


#*NOIN, LSW3<R1) 


BNE 


1* 


CMPB 


R4.. SY1NDX 


BNE 


1* 


CMPB 


RO, SYUNIT+.1 


BME 


1* 


MOV 


FILSPC+6, R2 


CMP 


R2, R50SYS 


BEQ 


8* 



IS THIS A PRIVILEGED USER? 

BR IF PRIVILEGED USER 

ARE WE RUNNING IN START-UP COMMAND FILE? 

BR IF YES — GIVE FULL ACCESS DURING STARTUP 

Is device = SY? 

Br if not SY 

Is unit = SY? 

Br if not 

GET FILE EXTENSION 

IS EXTENSION "SYS"? 

BR IF YES — DISALLOW ACCESS 



TSUSR — 
CHKACC -- 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

SI 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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010730 
010734 



010736 
010742 
0.10744 
010752 
010754 
010762 
010764 
010772 
010774 



011002 
1 1 006 



011010 
011014 
011020 
1 1 022 



011030 
011034 
011036 
Oil 040 
011044 
011046 
011054 

01 1056 
1 1 062 
011066 
011072 
011074 
011076 
011104 
011106 

011110 
011116 



011122 
011126 
011132 



020237 
00 1 522 



005737 
00 1 1 7 
032764 
001413 
032737 
001007 
032737 
001503 
052763 



005737 
00 1 506 



1 1 0037 
1 1 0437 
00 5002 
012705 



011026 010504 



1 1 6400 
00 1 432 
002407 
120037 
00 1 026 
123764 



062704 
012701 
012700 



001404 
026427 
00 1 006 
077007 



032765 
001442 



011120 005202 



062705 
020527 
103735 



002024 



CMP 
BEG 



R2, R50TSX 
8* 



i IS EXTENSION "TSX"? 

i BR IF YES — DISALLOW ACCESS 



000002G 

OOOOOOG 0000000 
0000000 OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



See if this is a non-file-stroctured lookup to a file-structured device 

1*: TST FILSPC+2 ; Non-f i 1 e-struc tured lookup? 

ONE 15* i Br if not 

BIT #DS*DIR,DVSTAT(R4) ;Is this a directory structured device? 

BEQ 15* ; Br if not 

BIT #PO*NFW, PRIVCO i May user do NFS open and then write? 

BNE 15* > Br if he has write access 

BIT #PO*NFR, PRIVCO > May user do NFS open and read? 

BEQ 8* j Br if not — No access allowed 

BIS #CS*RQN, C. CSW<R3> ; Force read-only access 

See if ACCESS command uas used to restrict access to any devices or files. 



15*: 



TST 

BEQ 



RESDEV 
9* 



j ANY RESTRICTED DEVICES AND FILES? 
;BR IF NOT 



002047 ' 
002046 ' 

OOOOOOG 



OOOOOOG 

002046 ' 

002047' OOOOOOG 



OOOOOOG 
000002G 
000003 



177776 OOOOOOG 



OOOOOOG OOOOOOG 



There are restricted devices and files. 
See if access is authorized. 

SAVE DEVICE UNIT # 

SAVE DEVICE INDEX NUMBER 

SET NO-ACCESS STATE 

POINT TO START OF ALLOWED DEVICE SPECS 

; Check next authorized file spec. 

6*: MOV R5, R4 i GET ADDRESS OF FILE SPEC AREA 

■ f Check device number and unit number. 



MOVB 


RO, CKAUNT 


MOVB 


R4, CKADEV 


CLR 


R2 


MOV 


#QKFILE, R5 



MOVB 
BEQ 
BLT 
CMPB 
BNE 
CMPB 

BNE 4* 
Check file names. 



GET DEV INDEX NUMBER 
BR IF THIS ENTRY IS NOT USED 
BR IF WILDCARD 

DOES IT MATCH THAT OF FILE SPEC BEING OPENED? 
BR IF NOT 
CKAUNT, 0F*UNT<R4> ; COMPARE DEVICE UNIT NUMBERS 

BR IF MISMATCH 



0F*DEV<R4>, RO 

4* 

2* 

RO, CKADEV 

4* 



2*: 



5* 



3*: 



ADD 
MOV 
MOV 
CMP 
BEQ 
CMP 
BNE 
SOB 



#OF*FIL, R4 

#FILSPC+2, RJ 

#3, RO 

<R4>+, <R1)+ 

3* 

-2<R4), #WLDNAM 

4* 

RO, 5* 



OOOOOOG 
OOOOOOG 



; POINT TO FILE NAME 

i POINT TO FILE NAME IN SPEC BEING OPENED 
i GET # WORDS TO COMPARE 
i COMPARE FILE NAMES 
i BR IF OK 

; WILD CARD IN NAME? 
; BR IF NOT 
; KEEP COMPARING 
; Names matched. — See if user is restricted to read-only access. 

BIT #OT*RON, 0F*FLG<R5>; IS USER RESTRICTED TO READ-ONLY ACCESS? 
BEQ 9* i BR IF NOT 

> Read-only access — Remember that and keep checking for full access. 

INC R2 » SET READ-ONLY ACCESS STATE 

i Check next authorized file spec. 

4*: ADD #0F**SZ,R5 ; POINT TO NEXT AUTHORIZED FILE SPEC 

CHECKED ALL? 
BR IF NOT 

> 

; Reached end of authorized file spec list without getting full access. 



ADD 


#OF**SZ, R5 


CMP 


R5, #OKFEND 


BLO 


6* 



TSUSR ~ 
CHKACC - 

115 
116 
117 
US 
119 



120 
121 
122 
123 
124 
125 



127 
1 28 
129 
130 
131 
132 
133 
134 
135 
136 
137 

J. Ow 

139 
140 
141 
142 
143 
144 
145 
146 
147 
.1. 48 
149 
150 
151 
152 
153 
154 
155 
156 
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011134 

011140 



011142 
011144 



011146 
Oil 152 
011160 
0111 62 
011170 
011172 
011200 



01 1202 
011206 
Ql I is. 1 <£. 



011224 
Oil 226 
011230 
011232 
011234 
011236 
1 1 240 



105737 
001431 



005702 
00 1 024 



113701 
032761 
00 1410 
123737 
00 1 004 
123737 
001406 



004737 
012700 
000137 



Allow implicit access to some devices and files. 
Allow full access to TT. 



002046' 



TSTB 
BEG 



CKADEV 

9* 



i TT DEVICE INDEX IS ALWAYS ZERO 

; BR IF TT 



See if we were granted read-only access. 



TST 
BNE 



R2 
7* 



; WERE WE GRANTED READ-ONLY ACCESS TO FILE? 
; BR IF YES 



0000000 
0000000 0000000 

002046' 0000000 

002047' 0000010 



Allow DUP to access SY: on a read-only basis 

MOVB C0RUSR,R1 ; GET JOB INDEX NUMBER 

BIT #*DUPRN* LSW6<R1)J IS DUP RUNNING? 

BEG 8* ; BR IF NOT 

CMPB CKADEV, SYINDX ; IS DEVICE = SY? 

BNE 8* .= BR IF NOT 

CMPB CKAUNT, SYUNIT+1 > IS UNIT ~ SY? 

BEQ 7* ;BR IF SY — ALLOW READ ONLY ACCESS 

User is not allowed to access this device or file. 



015214' 

.1.77764 

015144' 



8*: 



CALL 


ERRNAM 


MOV 


#-14* RO 


JMP 


USRCLS 



;SET FILE SPEC FOR TSKMON ERROR MESSAGE 
; SET ERROR CODE 
i ABORT 



011216 052763 0000000 OOOOOOG 



012605 
1 2604 
012603 
012602 
012601 
012600 
000207 



User is allowed read-only access to this device or file. 
Set CS*RON flag in CSW. 

7$: BIS #CS*RON*C. CSW<R3); SET READ-ONLY ACCESS FLAG IN CSW 

User is allowed full access to file. 
?*: 



MOV 


<SP>+, 


R5 


MOV 


<SP)+, 


R4 


MOV 


<SP>+, 


R3 


MOV 


(SP)+i 


R2 


MOV 


(SP)+* 


Rl 


MOV 


< SP ) *-, 


RO 


RETURN 
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1 



4 








5 








6 








7 








8 








9 








10 








11 








12 








.13 








14 








15 


1 1 242 


010246 




16 


011244 


010346 




1 7 








18 








19 








20 


011246 


004737 


013454' 


2.1. 








22 








23 








24 


011252 


012700 


0000000 


25 


011256 


004737 


013166' 


26 


Oil «=,&£=. 


103415 




27 








28 


1 1 264 


010103 




29 


011266 


062703 


0000000 


30 


011272 


012702 


0000020 


31 


011276 


012700 


000003 


32 


011302 


022223 




33 


011304 


00 1 362 




34 


01 1306 


077003 




35 








36 








37 








38 


01 1310 


004737 


0.13420' 


39 








40 








41 








42 


011314 


000241 




43 


011316 


012603 




44 


1 1 320 


012602 




45 


1 1 322 


000207 
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. SBTTL FNDFIL --— Fine! file in directory 

FNDFIL is called to locate the directory entry for a permanent file. 

1 n p u t ii : 
FILSPC = File spec to be searched for. 

Outputs-: 

RO = Starting block number of file. 

Rl = Address of directory entry (located in USRBUF). 

USRBUF = Directory segment containing entry. 

CURBEG = Number of directory segment. 
C-flag set if file not Pound. 



FNDFIL: MOV 
MOV 



R2> -<SP) 
R3, -C3P) 



Read in directory segment number 1 and set up info about directory. 

CALL RDSEGi i READ IN FIRST DIRECTORY SEGMENT 

Search for permanent file entry that matches our name. 



:*: 



MOV #FS$PRM, RO 

CALL GETDIR 

BCS 3* 
Compare file names. 

MOV Ri,R3 

ADD #FD*NAM, R3 

MOV #FILSPC+2, R2 

MOV #3, RO 

CMP <R2)+, <R3) <• 

BNE 2* 

SOB RO, 1* 



> LOCATE NEXT PERM FILE ENTRY 

; BR IF HIT END OF DIRECTORY 

GET ADDRESS OF DIRECTORY ENTRY 

POINT TO FILE NAME IN DIR ENTRY 

POINT TO NAME WE WANT TO FIND 

COMPARE 3 WORDS 

DO NAMES MATCH? 

BR IF NOT 

CHECK ALL OF NAME 



Found the file entry 

CALL SBCALC 
F i n i n h e d 



4*: 


CLC 




3*: 


MOV 


<SP)+, R3 




MOV 


<SP>+, R2 




RETURN 





Calculate starting block number. 

i CALCULATE STARTING BLOCK # FOR ENTRY 

i SIGNAL GOOD RETURN 
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FNDFRE — Find a free slot for a new file 



3 








4 








5 








6 

7 








8 








9 








10 








1.1 








12 








13 








14 








15 








16 








17 


1 1 324 


010346 




IS 


011326 


010446 




19 








20 








21 








22 


011330 


005037 


002030 ' 


23 


011334 


005037 


002036 ' 


24 








25 








26 








27 

'■?£,;) 


011340 


004737 


013454' 


29 








30 








31 
32 
33 


011344 


004737 


012634' 








34 








35 


011350 


063701 


002006 ' 


36 


011354 


016100 


0000000 


37 


011360 


032700 


ooooooc 


33 


011364 


00177.1. 




39 


1 1 366 


032700 


OOOOOOG 


40 


1 1 372 


001024 




41 


011374 


032700 


0000000 


42 


011400 


00 1 1 06 




43 








44 








45 








46 








47 


1 1 402 


032700 


OOOOOOG 


48 


011406 


00 1 760 




49 


011410 


010103 




50 


011412 


062703 


0000000 


51 


011416 


012704 


0000020 


52 


011422 


012700 


000003 


53 


1 1 426 


022324 




54 


011430 


001347 




55 


011432 


077003 




56 









. SDTTL FNDFRE — Find a free slot for a new file 

FNDFRE is called to locate a free file entry for a new file. 

Inputs: 
R2 = Desired size <-l==>largest; 0==>Def ault algorithm) 
FILSPC = Device-file spec for file being entered. 

Outputs: 
RO ™ Error code if C-fiag set on return. 

<l==>No free space of adequate size; 3= 
Rl = Address of free file directory entry. 
R2 = Actual # of blocks to be used for file. 
UBRBUF = Directory segment that has free slot entry. 
C-flag set if insufficient disk space or protected file conflict. 



^Protected file conflict). 



FNDFRE: 



MOV 
MOV 



R3, -<SP> 
R4, -<SP) 



Initialize tables that hold info about 2 largest free slots. 



CLR 
CLR 



L1SIZ 
L2SIZ 



;SIZE OF LARGEST FREE SLOT 
;SIZE OF 2ND LARGEST FREE SLOT 



Read in 1st directory segment and set up info about directory parameters. 
CALL RDSEG1 i READ IN 1ST DIRECTORY SEGMENT 

Consolidate entries in directory segment. 
7*: CALL CONSOL ; CONSOLIDATE DIRECTORY SEGMENT 

Find next directory entry for a permanent file or a free slot. 
4*: 



ADD 
MOV 
BIT 
BE© 
B I T 
BNE 
BIT 
BNE 



DIRSIZ, Rl ; POINT TO NEXT DIRECTORY ENTRY 

FD*STA<R1 >,R0 iPICK UP STATUS WORD FROM DIRECTORY ENTRY 

#F5*PRM+FS*EMP+FS*E0S, RO.; PERM FILE, EMPTY SLOT OR END OF SEGMENT? 



4* 

#FS*EMP, RO 
13* 

#FS*EOS, RO 
1* 



BR IF NONE OF ABOVE 

IS THIS AN EMPTY SPACE ENTRY? 

BR IF YES 

IS THIS THE END OF SEGMENT MARKER ENTRY? 

BR IF YES 



Found permanent file entry. See if this is a protected file entry 
with the same name as the file being entered. 



..:>/ 



BIT #FS*PRO, RO 

BEG 4* 

MOV R1,R3 

ADD #FD*NAM, R3 

MOV #FILSPC+2, R4 

MOV #3, RO 

14*: CMP <R3)+> (R4)+ 

BNE 4* 

SOB RO, 14* 
i Error: Protected file with same name. 

; Return error code 3. 



IS THIS FILE PROTECTED? 

BR IF NOT 

POINT TO NAME IN DIR ENTRY 



POINT TO NAME OF FILE BEING ENTERED 
GET # WORDS TO COMPARE 
COMPARE FILE NAMES 
BR IF DIFFERENT 
COMPARE ALL OF NAMES 



TSUSR — 
l-NDFRE — 



|- 3. i !■■> O p 

F i it d a 



IT 



itiim EHT's MACRO V05. 04 
• e <.> .i o t f a v a new file 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

hi 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

1 04 

105 

106 

107 

108 

109 

110 

111 

1 1 2 

113 

114 



011434 

011440 



011444 
011450 
011452 
011454 
1 1 460 

011462 
1 1 464 
01 1466 
011472 
011474 
011476 
011500 
1 1 504 
011510 
011516 



011520 
011524 
1 1 526 
1 1 534 
011542 
011550 
011554 
011560 
011566 
011570 
1 1 574 
011576 
011602 
011606 
011614 



011616 
1 1 622 
011624 

1 1 630 



011632 
011636 
011640 
011642 

1 1 644 
011650 



012700 

000137 



016100 
005702 
001422 
020227 
001417 

020002 
10373.1 
013703 
001402 
020003 
103324 
010037 
0101 37 
013737 
000714 



020037 
10142.1 
013737 
013737 
013737 
010037 
010137 
013737 
000670 
020037 
101665 
010037 
0:1.0137 
013737 
000655 



013700 
00 1 403 
004737 

000645 



000003 
012012' 



0000000 



1 77777 



MOV 
JMP 



#3, RO 
24$ 



i SET ERROR CODE 

; RETURN ERROR STATUS 



We found a free slot. Check its size. 



002030 



002030 ' 
002032 ' 
002002' 002034' 



002030 ' 



002030' 
002034 ' 
002032 ' 
002030 ' 
002032 ' 
002002 ' 

002036 ' 



002036' 
002042 ' 
002040 ' 



002034 ' 



002036 ' 
002040' 
002002' 002042' 



3*: MOV 

TST 

BEG 

CMP 

DEO 
; See if Free 

CMP 

BLO 

MOV 

BEG 

CMP 

BHIS 
15*: MOV 

MOV 

MOV 

Btt 
; We have a re 
> Remember two 
2$: CMP 

BIOS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BR 
5*: CMP 

BLOS 

MOV 

MOV 

MOV 

BR 



FD$LEN(R1 >,R0 

R2 

2* 

R2, #-1 

2* 
slot is large e 

RO, R2 

4* 

L1SIZ, R3 

15$ 

RO, R3 

4* 

RO, L1SIZ 

Rl, L10FF 

CURSEG, L1SEG 

4* 
quested size of 

largest free s 

RO, L1SIZ 

5* 

L1SIZ, L2SIZ 

L1SEG, L2SEG 

L1CFF, L20FF 

RO, L1SIZ 

Rl, L10FF 

CURSEG, LI SEC 

4* 

RO, L2SIZ 

4$ 

RO, L2SIZ 
Rl, L20FF 
CURSEG, L2SEG 
4* 



; GET SIZE OF FREE SLOT 

; WHAT KIND OF ALLOCATION IS BEING REQUESTED? 

; BR IF HE WANTS DEFAULT ALGORITHM 

; DOES HE WANT LARGEST FREE SLOT? 

; BR IF YES 
nouqh to satisfy specific request. 
IS FREE SLOT LARGE ENOUGH? 
BR IF NOT 

GET SIZE OF BEST FIT SO FAR 
BR IF THIS IS 1ST SLOT THAT WILL FIT 
IS NEW SLOT A BETTER FIT THAN LAST ONE? 
BR IF NOT 

REMEMBER SIZE OF BEST FIT FOUND SO FAR 
OFFSET OF DIR ENTRY WITHIN SEGMENT 
# OF DIR SEGMENT WITH ENTRY 

O or -1. 
1 ots. 

i IS NEW SLOT LARGER THAN LARGEST WE'VE SEEN? 

; BR IF NOT 

; MOVE INFO INTO 2ND LARGEST ENTRY 



SAVE SIZE OF NEW LARGEST ENTRY 

SAVE ADDRESS OF DIR ENTRY 

SAVE # OF SEGMENT WITH ENTRY 

KEEP LOOKING FOR LARGER FREE SLOTS 

IS NEW SLOT LARGER THAN 2ND LARGEST SO FAR? 

BR IF NOT 

SAVE NEW 2ND LARGEST SIZE 

SAVE ADDRESS OF DIR ENTRY 

SAVE DIR SEGMENT # 

KEEP LOOKING 



OOOOOOC 



013570 



005737 002030' 

001463 

005702 

00 1412 

020227 177777 
001002 



There are no more free slots in the current directory segment. 
See if there are more segments to check. 

1*: MOV USRBUF+DH*NXT, RO; GET # OF NEXT SEGMENT 

BEG 6* J BR IF THERE ARE NO MORE SEGMENTS 

CALL RDSEG > READ IN NEXT SEGMENT 

BR 7* i SEARCH THIS SEGMENT 

We have reached the end of the last active directory segment. 
See if we were able to satisfy request. 

£»*: TST L1SIZ i DID WE FIND ANY ENTRY THAT WOULD DO? 

BR IF NOT 

WHAT KIND OF REQUEST WAS IT? 
DEFAULT ALLOCATION 
User wants larciest free slot or he specified a specific size. 

;DOES HE WANT LARGEST OR SPECIFIC SIZE? 
;BR IF HE SPECIFIED EXACT AMT HE WANTS 



TST 


L1SIZ 


BEG 


9* 


TST 


R2 


BEG 


8* 


wants 


largest 


CMP 


R2, #-1 


BNE 


10$ 



TSUSR - 


— File 


operation EMT ' s 


FNDFRE - 


-- Find 


a f r e e u 


lot for 


115 


011652 


013702 


002030 ' 


116 


011656 


013700 


002034 ' 


117 


011662 


013701 


002032 ' 


118 


1 1 666 


000435 




119 








120 








121 


011670 


013702 


002030 ' 


122 


011674 


020227 


000001 


123 


011700 


001414 




124 


1 1 702 


000241 




125 


011704 


006002 




126 


011706 


020237 


002036 ' 


127 


011712 


101007 




128 


011714 


013700 


002042 ' 


129 


011720 


013701 


002040 ' 


130 


011724 


013702 


002036 ' 


131 


011730 


000404 




132 


011732 


013700 


002034' 


133 


011736 


013701 


002032 ' 


134 








135 








136 








137 








138 


011742 


005737 


OOOGOOG 


139 


1 1 746 


001405 




140 


011750 


020237 


0000000 


141 


011754 


101402 




142 


011756 


013702 


OOOOOOG 


143 








144 








145 








146 








147 


1 1 762 


020037 


002002 ' 


148 


i 1 766 


001413 




149 


011770 


010146 




150 


011772 


004737 


013570' 


151 


1 1 776 


012601 




152 


012000 


004737 


012634" 


153 


012004 


000404 




1 54 








155 








1 56 








157 


012006 


012700 


000001 


158 


012012 


000261 




159 


012014 


000401 




160 








161 








162 








163 


012016 


000241 




164 


012020 


012604 




165 


012022 


012603 




166 


012024 


000207 





MACRO V05. 04 
i new file 



10*: 
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User 
i i. e, 



8*: 



11*: 



MOV 

MOV 

MOV 

BR 

wants d 

> Large 

MOV 

CMP 

BEQ 

CLC 

ROR 

CMP 

BHI 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 



L1SIZ, R2 

L1SEG, RO 

L10FF, Rl 

23$ 
efault allocation 
r of <l/2 largest 

L1SIZ, R2 

R2, #1 

11* 

R2 

R2, L2SI2 

11* 

L2SEG, RO 

L20FF, Rl 

L25IZ,R2 

12* 

L1SEG, RO 

L10FF, Rl 



RETURN SIZE OF LARGEST FREE SLOT 

GET SEGMENT # WITH ENTRY 

GET ADDRESS OF ENTRY 

GO REREAD SEGMENT WITH EMPTY ENTRY 

slot or 2nd largest slot) ) 
GET SIZE OF LARGEST SLOT 
IS LARGEST SLOT 1 BLOCK LONG? 
IF SO THEN USE ALL OF IT 
DIVIDE BY 2 

COMPARE TO 2ND LARGEST SLOT 

USE 1/2 OF LARGEST 

GET # OF SEGMENT WITH 2ND LARGEST FREE BLOCK 

GET OFFSET TO ENTRY WITHIN SEGMENT 

GET SIZE OF ENTRY 

GET # OF SEGMENT WITH LARGEST FREE BLOCK 
GET OFFSET TO ENTRY WITHIN SEGMENT 



Constrain the largest file size returned in response to a O-size request 
to a sysgen supplied parameter (MAXFIL). 



12*: 



TST 

BEQ 
CMP 
BLOS 
MOV 



VMXFIL 

23* 

R2, VMXFIL 

23* 

VMXFIL, R2 



Did user specifiy a size to constrain alloc? 

Br if not 

IS FREE SLOT LARGER THAN MAXFIL PARAMETER? 

BR IF NOT 

ONLY USE THIS MUCH SPACE 



Reread and consolidate the segment that has the empty entry uie 
are going to use unless that segment is the current segment. 



23*: 



CMP 


RO, CURSEG 


BEQ 


21* 


MOV 


R 1 , - ( SP ) 


CALL 


RDSEG 


MOV 


(SP)+, Rl 


CALL 


CONSOL 


BR 


21* 



IS SEG WE WANT THE CURRENT SEGMENT? 

BR IF YES 

SAVE ADDRESS OF DIRECTORY ENTRY 

REREAD THE SEGMENT WITH THE EMPTY ENTRY 

GET ADDRESS OF DIRECTORY ENTRY 

CONSOLIDATE IT 

RETURN SUCCESSFULLY 



9*: 
24* 



We could not satisfy the request. 
#1. RO 



MOV 
SEC 
BR 



; RETURN ERROR CODE 1 

; SIGNAL ERROR ON RETURN 



Successful return 



21*: 
22*: 



CLC 
MOV 
MOV 
RETURN 



; SIGNAL GOOD RETURN 



<SP)+, R4 
(SP)+, R3 



TSUSR 
ADDENT 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 

1 d 

16 

17 
IS 
19 
20 
21 

22 

23 

24 

25 



12026 
12030 



27 

28 

29 

30 

31 

32 
33 
34 
35 
36 

37 

38 
39 
40 
41 
42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



12032 
12034 
12036 
12042 
12044 
12046 
12052 
12054 
12056 
12060 
12064 



12066 
12072 



12074 
12100 
12104 
12106 
12110 
12116 
12124 
12132 
1 2 1 36 
12140 
12144 
12150 
12152 
12154 



1 0246 
0.1.0346 



0.10146 
005000 
004737 
010103 
012601 
1 3700 
060003 
060003 
060003 
020327 
103403 



004737 
103461 



016100 
010261 
160200 
1 0002 
012761 
113761 
1 1 376 1 
005061 
010103 
062703 
012700 
012023 
012023 
012023 



. SBTTL ADDENT - Add a tentative file entry to directory 

ADDENT is called to add a tentative file entry to the current 
directory segment. This may cause the directory segment to be 
split if it overflows. 

Inputs: 
Rl = Address of empty-file directory entry to be converted to tentative file. 
R2 " # blocks to be allocated to tentative file. 
FILSPC = File spec for file being created. 

Outputs: 
Rl = Address of tentative file directory entry. 
C-flag set if directory overflows. 



ADDENT: MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



013222' 



002006 ' 



002002 ' 



See if there is room in the current directory segment for three new entries 
<free~0, tentative, free-remainder) 

SAVE ADDRESS OF ENTRY WE ARE WORKING ON 
FIND END OF SEGMENT ENTRY 

GET ADDRESS OF END OF SEGMENT ENTRY 
GET BACK ADDRESS OF EMPTY FILE ENTRY 
GET SIZE OF A DIRECTORY ENTRY 
ADD SPACE NEEDED FOR 3 ENTRIES 



IS THERE ROOM IN THIS SEGMENT? 
i BR IF THERE IS ROOM 



MOV 


R 1 , - < SP > ; 


CLR 


RO ; 


CALL 


NXTDIR 


MOV 


R1,R3 > 


MOV 


(SP)+, Rl ; 


MOV 


DIRSIZiRO ; 


ADD 


RO, R3 i 


ADD 


RO, R3 


ADD 


RO, R3 


CMP 


R3, #USRBUF+1024. > 


BIO 


1* i 



Directory segment is 
Attempt to split it. 



Full. 



01 2326 ' 



CALL 
BCS 



SPLIT 
9* 



i SPLIT THE SEGMENT 

i BR IF DIRECTORY OVERFLOW 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



1*: 



OOOOOOG 
000002G 



There is room in the current directory segment for the new entries. 
Convert the empty file entry to a tentative file entry. 

GET SIZE OF EMPTY FILE ENTRY 

PUT IN ALLOCATED SIZE OF TENTATIVE FILE 

CALC # BLOCKS LEFT OVER IN EMPTY AREA 

);MARK ENTRY AS TENTATIVE 

; PUT IN JOB NUMBER 

; PUT IN CHANNEL NUMBER 

SAY NO CREATION DATE YET — SET IN CLOSE 

SAVE ADDRESS OF TENTATIVE ENTRY 

POINT TO FIELD WHERE NAME GOES 

POINT TO FILE SPEC WE ARE CREATING FOR 

MOVE IN FILE NAME 

AND EXTENSTION 



MOV 


FD*LEN(R1),R0 J 


MOV 


R2, FD*LEN<Ri ) > 


SUB 


R2, RO ; 


MOV 


RO, R2 


MOV 


#FS$TEN, FD*ST A ( R 1 


MOVB 


CORUSR, FD$J0B<R1> 


MOVB 


CHNNUM, FD*CHN<R1) 


CLR 


FD*DAT(R1) i 


MOV 


R1,R3 i 


ADD 


#FD*NAM, R3 i 


MOV 


#FILSPC+2, RO ; 


MOV 


(R0)+, (R3)+ ; 


MOV 


(R0)+, <R3) s- 


MOV 


<R0>+, <R3) i- i 



t 
i 

< 
t 
t 
t 
I 
i 

€ 

i 
< 
< 
l 

4 
< 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



012156 
012162 
012166 



012172 
012176 
012202 
012206 
012210 



012230 



012 



063701 
004737 
0.10261 



163701 
163701 
020127 
103410 
032761 
001404 
063701 
004737 
063701 



000241 
012603 
012602 
000207 



Add an empty file entry following the tentative file entry to hold 
any left over blocks. 



002006 ' 
012244' 
00Q000G 



ADD DIRSIZ.R1 

CALL INSERT 

MOV R2, FD$LEN<R1> 



POINT TO FOLLOWING DIR ENTRY 
INSERT AN EMPTY FILE ENTRY 
FILL IN # LEFT OVER BLOCKS 



If the empty file entry we turned into a tentative file immediately followed 
a tentative file entry, add a zero length empty file entry in front of 
our new tentative file entry (this entry may be used when the earlier 

tentative file entry is closed). 



002006 ' 
002006 ' 
OOOOOOC 

0000000 OOOOOOG 

002006 ' 

012244' 
002006 ' 



3*: 



9*: 



SUB 

SUB 

CMP 

BLO 

BIT 

BEG. 

ADD 

CALL 

ADD 

Finished 

CLC 
MOV 
MOV 
RETURN 



DIRSIZ,R1 ; POINT TO OUR NEW TENTATIVE FILE ENTRY 

DIRSIZ,R1 ; POINT TO PREVIOUS ENTRY 

Rl, #USRBUF+DH$$SZ; WAS THERE A PREVIOUS ENTRY? 

3* i BR IF NOT 

#FS*TEN, F0*STA<R1); WAS PREVIOUS ENTRY A TENTATIVE FILE ENTRY? 



3* 

DIRSIZ, Rl 
INSERT 
DIRSIZ, Rl 



BR IF NOT 

POINT BACK TO OUR NEW TENTATIVE ENTRY 
INSERT A ZERO-LENGTH EMPTY FILE ENTRY 
POINT TO TENTATIVE FILE ENTRY WE CREATED 



i SIGNAL GOOD RETURN 



(SP)+, R3 
( SP ) +, R2 



TSUSR 
INSERT 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

.1. 7 

18 

19 

20 

21 

23 

24 

25 

26 

27 

28 

29 

30 

3.1. 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



012244 010146 



012246 012700 0000000 



01 



CU&. v/C» 



030061 0000000 



012256 001002 

012260 004737 013222' 



012264 005721 
012266 010100 
012270 063700 002006' 
012274 014140 
012276 020116 
101375 



012302 
012306 
012310 
012312 
012314 
012316 



013700 
006200 
005021 
077002 
012601 
012761 



002006 ' 



0000000 0000000 



012324 000207 



. SBTTL INSERT — Add an empty file entry to directory 

> INSERT is called to create a new empty file directory entry and insert 
i it into the current directory segment. 

; Note: Tests before calling us guarantee that there is room in the 
; current directory segment. 

i 

i Inputs: 

J Rl = Address of entry new empty file entry is to go in front of. 

t 

j Outputs: 

; Rl = Address of new empty file entry. 

INSERT: NOV R1,-(SP) 

> Locate end-of -segment entry. 

SEARCH FOR END-OF -SEGMENT MARKER 

ARE WE POINTING TO IT NOW? 

BR IF YES 

FIND END OF SEGMENT ENTRY 

> 

> Shove down all entries beyond insert point. 

i 

2$: TST (Rl)+ ; POINT BEYOND END-OF-SEGMENT WORD 



MOV 


#FS*E0S, RO 


BIT 


RO, FD*STA(R1 ) 


BNE 


2* 


CALL 


NXTDIR 



TST 


(Rl) + 


MOV 


Rl, RO 


ADD 


DIRSIZ, RO 


NOV 


-(Rl), -<R0> 


CMP 


Rl, <SP> 


Bill 


1* 



If: 



> Initialize the new entry. 



MAKE ROOM FOR NEW ENTRY 
SHOVE DOWN ALL ENTRIES 
TILL WE REACH INSERT POINT 



3$: 



MOV 


DIRSIZ, RO 


ASR 


RO 


CLR 


<R1) + 


SOB 


RO, 3* 


MOV 


<SP)+, Rl 


MOV 


#FS*EMP, F 


- i n iehe d 




RETURN 





SIZE OF ENTRY < BYTES) 
GET # WORDS 
ZERO THE ENTRY 

; GET ADDRESS OF NEW ENTRY 
#FS*EMP, FD^iSTA<Rl); SAY ENTRY IS EMPTY 



i 

i 

i 

I 

I 

< 

i 

< 

i 

i 

« 

i 

< 

( 

4 
€ 

< 
< 



I 
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SBTTL SPLIT - Split a directory segment 



3 






4 






5 






6 






7 






a 






9 






10 






u 






12 






13 






14 






15 






16 






17 012326 


010246 




IS 012330 


1 0346 




19 012332 


010446 




20 012334 


010546 




21 012336 


010105 




22 






23 






24 






25 012340 


023737 


002010' 002004' 


26 012346 


1 1 524 




27 012350 


013704 


002002 ' 


28 






29 






30 






3.1. 






32 






33 






34 012354 


012701 


OOOOOOC 


35 012360 


005000 




36 012362 


032761 


ooooooe oooooog 


37 012370 


00 1 004 




38 012372 


005200 




39 012374 


063701 


002006 ' 


40 012400 


000770 




41 






42 012402 


006200 




43 012404 


013702 


OOOOOOC 


44 012410 


012701 


OOOOOOC 


45 012414 


066102 


OOOOOOG 


46 012420 


063701 


002006 •' 


47 012424 


077005 




48 






49 012426 


032761 


OOOOOOC OOOOOOG 


50 012434 


001005 




51 012436 


066102 


OOOOOOG 


52 012442 


063701 


002006' 


53 012446 


000767 




54 






55 






56 






57 







SPLIT is called to split a directory segment when it overflows. 
SPLIT moves approximately half of the entries in the current 
segment to a new segment and links the new segment into the directory 
chain. The number of open directory segments (stored in segment # 1) 
is updated also. 

I n p u t b : 
Ri = Address of a directory entry of interest in current segment. 

Outputs: 
Ri =• Address of directory entry of interest after split. 

USRBUF = Directory segment containing directory entry pointed to by RI. 
C-flag set on return if there are no available free directory segments. 



SPLIT: 



MOV 


R2* 


- < SP ) 


MOV 


R3* 


- < SP ) 


MOV 


R4, 


-(SP) 


MOV 


R5* 


- ( SP ) 


MOV 


RI* 


R5 



See if there 



SAVE ADDRESS OF ENTRY WE ARE INTERESTED IN 

is a free segment for us to split into. 

IS THERE A FREE SEGMENT? 

BR IF NOT 

REMEMBER CURRENT DIR SEGMENT # 



CMP 


DIRNSG, DIRHIS 


BLOS 


10* 


MOV 


CURSEG* R4 



There is a free segment. 

Determine where to split this segment. 

Count # of entries in this segment. 



1*: 



MOV 
CLR 
BIT 
BNE 
INC 
ADD 
BR 



#USRBUF+DH**SZ* RI; POINT TO FIRST ENTRY IN SEGMENT 

RO * COUNT # ENTRIES IN RO 

#FS*EOS, FD*STA(R1); IS THIS THE END OF SEGMENT MARKER? 

* BR IF YES 
i COUNT ANOTHER ENTRY 

* POINT TO NEXT ENTRY 



2* 
RO 

DIRSIZ,R1 
1* 

; Leave approximately half the entries in the current segment. 
2*: ASR RO i GET 1/2 # ENTRIES 

MOV USRBUF+DH*BLK* R2; GET BASE BLOCK # OF 1ST FILE IN SEGMENT 
MOV #USRBUF+DH**SZ,Rli POINT TO 1ST ENTRY 



3*: 



ADD 
ADD 
SOB 



; KEEP TRACK OF BLOCK #'S OF FILES 
i POINT TO NEXT DIRECTORY ENTRY 
*SKIP OVER 1/2 OF THE ENTRIES 

} Split on 1st permanent or tentative entry beyond mid-point. 

4$: BIT #<FS*PRM+FS*TEN>, FD*STA(R1); IS THIS A PERM OR TENTATIVE ENTRY? 



FD*LEN(R1 >* R2 
DIRSIZ* RI 
RO* 3* 



BNE 7* 

ADD FD*LEN(R1>* R2 

ADD DIRSIZ* RI 

BR 4* 



BR IF YES 

KEEP TRACK OF STARTING BLOCK NUMBERS 

POINT TO NEXT ENTRY 



Found split point. 

Ri = Address of 1st entry to go in new segment. 

R2 -= Base block number of 1st file in new segment. 



TSUSR 
SPLIT 
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53 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

1 02 

103 

104 

105 

106 

107 

10S 

109 

110 

111 

112 

113 

114 



012450 
012452 
012454 
012456 
012462 



012464 
012466 
012472 
012476 
012502 
012504 
012510 



012514 
012520 
012524 

012530 
012532 
012536 
012542 
012544 
012546 
012550 



012556 
012562 
012566 
012572 



012576 
012600 
012602 
012604 
012606 



012612 
012614 
012616 



020501 
103404 
160105 
062705 
005004 



011146 
012711 
013746 
013703 
005203 
010337 
004737 



OOOOOOC 



OOOOOOC 
OOOOOOC 
002004 ' 

OOOOOOC 
013706' 



012637 

010337 



012611 
012700 
012702 
160102 
006202 
012120 
077202 



004737 
010337 
010337 
004737 



005704 
001401 
010403 
010300 
004737 



010501 
00024J. 
000401 



OOOOOOC 
002002 ' 
OOOOOOC 



OOOOOOC 
002002 ' 



012552 004737 013706' 



013454' 
OOOOOOC 
002004 ' 
013706' 



013570' 



Calculate address of dir entry sue are interested in after split. 



CMP 
BLO 
SUB 
ADD 
CLR 



R5, Rl 

5* 

R1.R5 

#USRBUF+DH**SZ, R5 



WILL ENTRY GO IN OLD OR NEW SEGMENT? 
BR IF GOING IN OLD SEGMENT 
CALCULATE ITS ADDRESS IN NEW SEGMENT 



5$: 



MOV 


( R 1 > , - ( SP ) 


MOV 


#FS*EOS, <R1> 


MOV 


USRBUF+DH*NXT, -< 


MOV 


DIRHIS, R3 


INC 


R3 


MOV 


R3# USRBUF+DH*NXT 


CALL 


WRTSEG 



6$: 



R4 i REMEMBER ENTRY GOES IN NEW SEGMENT 

Truncate current segment and set link to new segment. 

; SAVE FDSSTAT FOR ENTRY FOLLOWING SPLIT 
> SET END-OF-SEGMENT MARKER 
(SP);SAVE LINK TO NEXT SEGMENT 

GET # OF HIGHEST SEGMENT CURRENTLY IN USE 

GET # OF 1ST FREE SEGMENT 

SET AS NEW LINK 

WRITE OUT TRUNCATED OLD SEGMENT 

Now set up new segment. 

Set new header. 

MOV (SP)+, U5RBUF+DH*NXT; SET FLINK 

MOV R3, CURSEG ; SET OUR SEGMENT # 

MOV R2, USRBUF+DH*BLK; STARTING BLOCK # FOR FILES IN SEGMENT 
Slide up directory entries from end of segment. 

MOV <SP)+, (Rl) ;FIX FD*STA OF 1ST ENTRY 

MOV #USRBUF+DH**SZ, RO; POINT TO TOP OF AREA FOR ENTRIES 

MOV #USRBUF+1024. , R2; POINT PAST END OF BUFFER 

SUB R 1 , R2 ; GET # BYTES TO MOVE 

ASR R2 i GET # WORDS TO MOVE 

MOV <R1)+, <R0)+ iMOVE UP ENTRIES 



30B 



Ro 6$ 



Write out the new segment. 
CALL WRTSEG 

Update information in header of 1st (master) directory segment. 

CALL RDSEG1 ; READ IN DIR SEG 1 

MOV R3, USRBUF+DH*HIS;SET # OF HIGHEST SEG IN USE 

MOV R3, DIRHIS 

CALL WRTSEG > WRITE OUT SEG # 1 

Now read back in the segment that has the directory entry we are 
interested in. 

IS ENTRY IN OLD OR NEW DIRECTORY SEGMENT? 
BR IF IN NEW SEGMENT 
GET NUMBER OF OLD SEGMENT 
9*: MOV R3, RO ; SET AS ARGUMENT TO RDSEG 

READ IN SEGMENT WITH ENTRY WE WANT 



; GET ADDRESS OF ENTRY OF INTEREST 
; SIGNAL GOOD RETURN 



TST 


R4 


BEG 


9* 


MOV 


R4, R3 


MOV 


R3, RO 


CALL 


RDSEG 


Finished 




MOV 


R5, Rl 


CLC 




BR 


11$ 
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115 

116 
117 
118 
119 
120 
121 



012620 



012626 
012630 
012632 



012605 
012604 
012603 
012602 
000207 



i D3 


rectory 


overflow 


> 

10*: 


SEC 






11*: 


MOV 




<SP)+, R5 




MOV 




<SP>+, R4 




MOV 




(SP)+> R3 




MOV 




(SP)+* R2 




RETURN 





j SIGNAL ERROR ON RETURN 



TSUSR - 
CONSOL 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

1? 

18 

19 

20 

21 

2P 

23 

24 

c v/ 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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12634 
12636 
12640 
12642 



012644 



12652 
12656 
1 2662 

12664 
12670 
12674 



12676 
12702 
12704 
12710 
12712 
12716 
12720 
12726 
12730 
1 2734 
12742 
12750 
12752 
12760 



010146 
010246 
010346 

010446 



012701 
013704 
.1.60401 

012700 
004737 
103436 



116102 
00 1 427 
032702 
00 1 024 
020227 
101021 
032762 
001415 
116103 

032760 
001404 
032760 
001003 



SBTTL CONSOL 



Directory segment consolidator 



CONSOL is called to remove unnecessary entries from the current directory 
segment. The unnecessary entries that are removed are: 

1. Tentative files that are not currently open. 

2. Multiple consecutive empty entries. 

3. Empty entries of length O that follow a permanent entry. 



I n p u t- & : 
U3RBUF 



CONSOL: 



MOV 
MOV 
MOV 
MOV 



Current directory segment. 



R 1 , - < SP ) 



R2> -<SP> 
R3, -<SP> 
R4, ~<QP> 



Get exclusive access to job context block buffer 

OCALL GETCXT > Get exclusive access to context block buffer 

Pass 1: Convert unopen tentative entries into empty entries. 



000000C 
002006 ' 



0000000 
3222 



.: Find 
3*: 



0000000 
000001 
0000000 

0000000 OOOOOOG 
0000000 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



012762 012761 OOOOOOG OOOOOOG 1$: 



0: 



000735 



MOV 
MOV 
SUB 
the n 
MOV 
CALL 
BCS 
We found a 
Rl points 
See if the 
MOVB 
BEQ 
BIT 
BNE 
CMP 
BHI 
BIT 
BEO 
MOVB 
OCALL 
BIT 
BEG 
BIT 
BNE 
Convert th 

MOV 
Chf'ck next 
BR 



#USRBUF+DH**SZ,R1; POINT TO 1ST ENTRY 



DIRSIZ, R4 

R4, Rl 
ext tentative file 

#FS$TEN, RO 

NXTDIR 

5* 
tentative file 
to the entry, 
entry is open now. 

FD*J0B<R1),R2 

1* 

#1, R2 

1* 

R2, #LSTSL 

1* 

#*DILUP>LSW<R2> 

1* 

FD*CHN(R1),R3 

GETCHA 



DIRECTORY ENTRY SIZE IN R4 

IN FRONT OF 1ST ENTRY FOR NXTDIR 



; CARRY 
; POINT 
entry. 

;LOOK FOR A TENTATIVE FILE ENTRY 
; DO SEARCH 

;BR IF NO MORE TENTATIVE FILE ENTRIES 
entry. 



OF JOB USING ENTRY 
NOT TSX JOB 



GET # 
BR IF 

TSX JOB NUMBER CAN NEVER BE ODD 
BR IF NOT TSX JOB USING CHANNEL 
MAKE SURE JOB NUMBER IS NOT TOO BIG 
BR IF NOT TSX JOB 
IS THAT JOB LOGGED ON? 
BR IF NOT 

GET CHANNEL # ASSOCIATED WITH FILE 
GET POINTER TO CHANNEL BLOCK 

OPEN? 



#CS*OPN, C. CSW<RO)j IS THAT CHANNEL 
1* i BR IF NOT 

#CS*ENT, C. CSW(RO)* IS CHANNEL OPEN FOR CREATING A NEW FILE? 
2* i BR IF YES 

is tentative file entry to an empty file entry. 

#FS*EMP, FD*STA<R1>; SAY THIS IS AN EMPTY FILE ENTRY 
entry. 
3* 
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012772 

012776 

> 13000 

1 1 3004 

H3010 



H3012 
>13014 
H3016 
• 13024 



012701 
160401 
012700 
004737 
103456 



010102 
060402 
032762 
001417 



OOOOOOG OOOOOOG 



1 



3 

4 

5 012772 012701 OOOOOOG 

6 

7 013000 012700 OOOOOOG 

8 0] 

9 0: 
10 
11 

12 0: 

13 o: 

14 o: 

15 0: 

16 

17 013026 066261 OOOOOOG OOOOOOG 

18 

19 013034 010146 

20 013036 012700 OOOOOOG 

21 013042 004737 013222' 
22 

23 

24 

25 

26 

27 

28 

29 

30 
31 
32 
33 
34 

35 

36 

37 

38 

39 

40 

41 

42 
43 

44 

45 0' 

46 013120 012700 OOOOOOG 

47 013124 004737 013222' 

48 

49 

50 

51 

52 

53 
54 

55 
56 
57 



Pass 2: Consolidate consecutive empty entries and emtpy entries 
of zero length preceded by a permanent file entry. 



5$: MOV 

SUB 
11$: MOV 

CALL 

ecs 

i We have found 



> Combine it 

7$: MOV 
ADD 
BIT 
BEG 

i Combine the 
ADD 

; Remove the 
MOV 
MOV 
CALL 



#USRBUF+DH**SZ,R1; POINT TO 1ST ENTRY 
R4, Rl i POINT IN FRONT OF 1ST 

#FS*EMP> RO ; SEARCH FOR NEXT EMTPY 
NXTDIR 

12* ;BR IF THERE ARE NO MORE 

an empty file entry. 



ENTRY 
FILE ENTRY 



with the following entry if it is empty too. 
R1,R2 ;GET ADDRESS OF CURRENT ENTRY 

R4, R2 i POINT TO NEXT ENTRY 

#FS*EMP,FD*STA<R2>; IS NEXT ENTRY EMPTY TOO? 



8* 
two entries. 
FD*LEN<R2), 
second emtpy 
R1,-<SP> 
#FS*EOS> RO 
NXTDIR 



i BR IF NOT 

FD*LEN<R1>; COMBINE ALLOCATED SIZES 

entry. 

i REMEMBER ADDRESS OF 1ST EMPTY ENTRY 
; SEARCH FOR END OF SEGMENT MARKER 



13046 
13050 
13052 
13054 
13056 
13060 
13062 



010200 
060400 
012022 
020001 
101775 
012601 
000753 



Rl now points to end of segment marker. 
Move up entries over the one being removed 



(pointed to by R2). 



6$: 



MOV R2, RO 

ADD R4, RO 

MOV <R0>+, <R2> + 

CMP R0,R1 

BIOS 6$ 

MOV <SP)+, Rl 

BR 7* 



GET ADDRESS OF ENTRY TO BE REMOVED 

POINT TO FOLLOWING ENTRY 

MOVE UP FOLLOWING ENTRIES OVER ONE BEING REMOVED 

MOVED END-OF-SEGMENT MARKER YET? 

BR IF NOT 

GET BACK ADDRESS OF 1ST EMPTY ENTRY 

SEE IF THERE ARE MORE EMPTIES TO BE MERGED 



This 
See 



empty is not followed by any other empty entries, 
if it is of zero length and follows a permanent file entry. 



1 3064 
13070 
13072 
13074 
13076 
13102 
13104 
13112 

13114 
13116 
13120 
13124 
13130 
13132 
13134 
13136 
13140 
13142 



005761 OOOOOOG 

001025 

010102 

160402 

020227 

103420 

032762 

001414 



010246 
010102 
012700 
004737 
010200 
060400 
1 2022 
020001 
101775 
012601 



8*: 



OOOOOOC 
OOOOOOG OOOOOOG 



10$: 



13144 000715 



TST 
BNE 
MOV 
SUB 
CMP 
BLO 
BIT 
BEG 
Remove a 
MOV 
MOV 
MOV 
CALL 
MOV 
ADD 
MOV 
CMP 
BLOS 
MOV 
for 
BR 



FD*LEN<R1> 

9* 

Rl, R2 

R4, R2 

R2, #USRBUF+DH**SZ; ARE WE 1ST 

9* i BR IF YES 

#FS*PRM> FD*STA<R2>; IS PREVIOUS 



IS THIS EMPTY OF ZERO LENGTH? 
BR IF NOT 

GET ADDRESS OF ENTRY 
GET ADDRESS OF PREVIOUS ENTRY 
ENTRY? 



ENTRY A PERMANENT FILE? 



Look 



9* 
zero length empty 

R2, -<SP> 

R1,R2 

#FS*E05, RO 

NXTDIR 

R2>R0 

R4, RO 

<R0>+, (R2) + 

RO, Rl 

10* 

(SP)+, Rl 
next empty entry. 

11* 



; BR IF NOT 
entry following a permanent file entry. 
; SAVE ADDRESS OF PERMANENT FILE ENTRY 
; GET ADDRESS OF EMPTY ENTRY 
; SEARCH FOR END OF SEGMENT ENTRY 



GET ADDRESS OF EMPTY ENTRY 

POINT TO FOLLOWING ENTRY 

MOVE UP FOLLOWING ENTRIES OVER EMPTY ENTRY 

HAVE WE MOVED END-OF-SEGMENT MARKER YET? 

BR IF NOT 

GET BACK ADDRESS OF PERMANENT FILE ENTRY 



Finished 



TSUSR 
COWSOL 



58 
59 
60 
61 
o2 
63 
64 
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013146 
013154 
013156 
013160 
013162 
013164 



12*: 



012604 
012603 
012602 
012601 
000207 



OCALL 

MOV 

MOV 

MOV 

MOV 

RETURN 



FRECXT 
(SP)+, R/'l 

<SP)+, R3 
<SP>+, R2 

<SP)+, Rl 



^Release context block buffer 



TSUSR 
©ETDIR - 

1 
2 
3 
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4 








5 








6 








7 








S 








9 








10 








1.1 








12 








13 








14 








15 








.1.6 








17 


013166 






IB 








19 








20 








21 


013166 


004737 


01 3222 ' 


22 


013172 


103012 




23 








24 








25 








26 


013174 


010046 




27 


013176 


013700 


OOOOOOC 


28 


013202 


001404 




29 


013204 


004737 


013570' 


30 


013210 


012600 




31 


013212 


000765 




32 








33 








34 








35 


013214 


012600 




36 


013216 


000261 




37 








33 








39 








40 


013220 


000207 





SBTTL GETDIR — Locate next directory entry 



GETDIR is called to get the address of the next directory entry of 
a specified type. Directory segments are read if necessary to find 
the next such entry. 

Inputs. 
Rl - Address of last directory entry. 
RO = FS$xxx entry type flags. 
UBRBUF - Current directory segment. 

Outputs: 
Rl = Address of next directory entry of the specified type. 
USRBUF = Directory segment that contains the entry. 
C-flag set if no entry of the specified type can be found. 

GETDIR: 

See if we can find entry of specified type in the current directory segment. 



1*: 



CALL 
BCC 



NXTDIR 
9* 



; SEARCH FOR ENTRY OF SPECIFIED TYPE 
i BR IF WE FOUND ONE 



2* 



Hit end of current directory segment. See if there are more segments. 



GET # OF NEXT SEGMENT IN LIST 
BR IF REACHED END 
READ IN NEXT SEGMENT 
GET BACK TYPE FLAGS 
SEARCH THIS SEGMENT 



No entry of the specified type was found 
(SP)+, RO 



MOV 


RO, -(SP) 


MOV 


USRBUF+DHSNXT, RO 


BEQ 


2* 


CALL 


RDSEG 


MOV 


<SP)+, RO 


BR 


1* 



MOV 
SEC 



i CLEAN OFF STACK 

; SIGNAL FAILURE ON RETURN 



finished 
9$: RETURN 
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entry in current segment 



1 

n 

ir. 

3 

4 

5 

6 

7 

B 

9 
10 
.1.1 
.12 

i 3 

14 013222 

15 013226 

16 oi; 

17 oi; 

is oi; 

19 

20 oi; 

21 oi; 



.3232 
,3234 
.3242 

1 3244 
:3246 



23 01 

24 01 



3250 
3252 



06370.1 
030061 
00 1 006 
032761 
00 1 767 

000261 
000401 

000241 
000207 



. SBTTL NXTDIR - — Locate next directory entry in current segment 

NXTDIR is called to get the address of the next directory entry of a 
specified type within the current directory segment. 

Inputs: 
RO ~ FS*xxx directory entry type flags. 
Rl = Address of last directory entry. 

Outputs: 
Rl = Address of directory entry found. 
C-f lag set if no entry of specified type could be found. 

002006' NXTDIR: ADD DIRSIZ,R.l > POINT TO NEXT DIRECTORY ENTRY 

OOOOOOG BIT R0,FD*STA<R1 > J IS THIS ENTRY OF THE RIGHT TYPE? 

BNE 1* i BR IF YES 

OOOOOOG OOOOOOG BIT #FS*EOS, FD*STA<R1 ) ; IS THIS THE END-OF -SEGMENT MARKER? 

BEG NXTDIR ; KEEP SEARCHING IF NOT 

; Hit end of seqment. 

SEC ; SIGNAL FAILURE ON RETURN 

BR 9* 
; Found entry. 

1*: CLC ; SIGNAL SUCCESS ON RETURN 

9$: RETURN 



c 

i 

c 
< 
c 
t 
i 
i 
< 
< 
< 
< 

< 

( 
( 
i 

< 

i 
i 



TSUSR - 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
.11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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01 
01 
01 
01 
01 
01 
01 



3254 
3262 
3264 
3266 
3270 
3272 
3274 



01 
01 
01 
01 
01 



01 

01 
01 
01 
01 
01 
01 
01 
01 



3276 
3302 
3306 
3310 
3312 



3314 
3320 
3324 
3330 
3332 
3334 
3340 
3342 
3344 



01 
01 
01 
01 



3346 
3352 
3356 
3362 



032737 
001455 
010246 
010346 
010446 
010546 
010146 



012703 
012700 
012146 
106623 
077003 



013703 
012743 
010337 
106506 
012603 
012746 
106643 
010346 
106606 



012701 
013746 
013746 
000002 



SBTTL DIDDLE 



Allow user to access directory entry 



DIDDLE is called to give the user (especially PIP) a chance to access 

and possible alter a directory entry. 

A program requests this feature by storing the address of a routine to 

be called in the fifth word of the argument block for .ENTER, .LOOKUP, 

or .RENAME emt's and setting the name argument word odd. 

The specified routine is called with Rl pointing to the date word of 

the directory entry. 



Inputs: 
Rl = Address of the directory entry. 
EMTBLK = Argument list for the emt. 

Outputs: 
Directory entry may have been modified by the user. 



000001 



000002G DIDDLE: BIT 

BEG 
MOV 
MOV 
MOV 
MOV 
MOV 



#1, EMTBLK+2 

9* 

R2, -<SP) 

R3, -<SP> 

R4, -(SP) 

R5, -(SP) 

R 1 , - < SP > 



; DOES USER WANT TO DIDDLE WITH THE ENTRY? 
;BR IF NOT 



SAVE ADDRESS OF DIR ENTRY ON TOP OF STACK 



User does want to diddle with the directory entry. 
Move directory entry to user's address space. 



000300 
000000C 



1*: 



MOV 


#U5RUCA, R3 


MOV 


#FD**3Z/2, RO 


MOV 


(Rl)+, -<SP) 


MTPD 


<R3) + 


SOB 


RO, 1* 



GET ADDRESS OF AREA IN USER'S AREA 
GET # WORDS TO MOVE 

PICK UP WORD FROM DIRECTORY ENTRY 
MOVE TO AREA IN USER'S SPACE 
MOVE ALL OF DIRECTORY ENTRY 



Use special EMT to get control back from user's routine. 



OOOOOOG 
013364' 
OOOOOOG 



OOOOOOG 



; Get pointer to top of return addr stack 

i Push our return address 

> Save updated stack pointer 

; GET USER 'S STACK POINTER 

iPUSH ADDR OF EMT INSTRUCTION ON USER'S STACK 

i NOW STORE UPDATED USER STACK POINTER 



Now enter user's routine in user mode. 

(Uce RTI to do this) 

On entry to user's routine, Rl points to the directory entry. 



MOV 


EMTCAD, R3 


MOV 


#5*, ~(R3) 


MOV 


R3, EMTCAD 


MFPD 


SP 


MOV 


(SP)+, R3 


MOV 


#CPLEMT, -<SP) 


MTPD 


-(R3) 


MOV 


R3, -<SP) 


MTPD 


SP 



000300G 
OOOOOOG 
0000 10G 



MOV 
MOV 
MOV 

RTI 



#USRUCA+FD*DAT, RliMAKE Rl POINT TO DATE WORD OF DIRECTORY ENTRY 



EMTPS, ~<SP) 
EMTBLK+10, -<SP) 



PS 

PC = Address of user's routine 

ENTER USER'S ROUTINE 



Return here from user's routine (when EMT is done). 
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58 
59 

60 

61 

62 

63 

64 

65 
66 
67 
68 
6? 

70 

71 

72 

73 

74 



13366 
13372 
13376 
13400 
13402 



13404 
13406 
13410 
13412 
13414 
13416 



Move directory entry back to directory buffer. 



011602 
012703 
012700 
106523 
012622 
077003 



012601 
012605 
0.1.2604 
012603 
012602 
000207 



5$: 



000300 

ooooooc 



9$: 



MOV 


(SP).. R2 


MOV 


#USRUCA, R3 


MOV 


#FD**SZ/2, HO 


MFPD 


<R3> + 


MOV 


(SP)+, <R2) + 


SOB 


RO, 2* 


Finished 




MOV 


<SP)+, Rl 


MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP>+, R3 


MOV 


<SP)+, R2 


RETURN 





GET ADDRESS WHERE WE SHOULD PUT DIR ENTRY 

POINT TO AREA IN USER'S AREA WITH DIR ENTRY 

GET # WORDS TO MOVE 

GET A WORD FROM USER'S DIRECTORY ENTRY 

MOVE BACK TO OUR INTERNAL AREA 

MOVE ALL OF ENTRY 



< 

4 
i 

I 
I 
( 
I 
€ 

i 

< 
< 

€ 
< 

4 

< 

i 

i 

i 

i 



TSUSR 
SBCALC 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 



013420 010246 

013422 013700 O000O0C 

013426 012702 OOOOOOC 

013432 020201 

013434 001405 

013436 066200 0000000 

013442 063702 002006' 

013446 000771 

013450 012602 

013452 000207 



. SBTTL SBCALC --- Calculate starting block # for a file entry 

SBCALC is called to calculate the starting block number of a file. 

Inputs: 
Ri = Address of directory entry for file. 
USRBUF = Directory segment containing entry. 

Outputs: 
RO = Starting block number of the file. 



SBCALC: MOV 
MOV 



2$: 



MOV 

CMP 

BEQ 

ADD 

ADD 

BR 

MOV 

RETURN 



R2, -<SP) 

USRBUF+DH*BLK, RO; GET BLOCK # OF 1ST FILE IN THIS DIR SEGMENT 

#USRBUF+DH$$SZ, R2; POINT TO 1ST DIR ENTRY IN THIS SEGMENT 

R2, Rl ;HAVE WE REACHED OUR ENTRY? 

2* i BR IF YES 

FD$LEN<R2),R0 > ADD SPACE ALLOCATED TO THAT FILE ENTRY 

DIRSIZ,R2 ; POINT TO NEXT ENTRY 

1* 

< SP ) +, R2 
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. SBTTL RDSEG1 — Read 1st directory segment 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 013454 
17 
18 
19 

20 0] 

21 



13454 
13460 



012700 
004737 



000001 
013570 



23 
24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

46 013556 000207 

47 

48 

49 

50 013560 

51 013564 







13464 
13470 
13476 
13504 
13506 
13514 
13516 
13522 
13526 
13530 
13534 
13540 
13546 



13550 
13554 



000002 ' 

0000000 002004 
0000000 002010 



012701 

016137 

016137 

001425 

023727 002010' 000037 

101021 

016100 0000000 

020027 001000 

101014 

062700 0000000 

010037 002006' 

026127 0000000 0000000 

103404 



062701 
160001 



0000000 



RDSEG1 is called to read the first directory segment on a device 
and set up parameters about the directory. 

I n p u t s : 
CHNNUM = Number of channel we are working on. 

Outputs: 
Rl = Pointer to dummy directory entry in front of 1st real one < f or NXTDIR). 
U3RBUF = 1st directory segment. 
CURSEG = 

DIRHIS = Number of highest directory segment in use. 
DIRSIZ = Number of bytes per directory entry. 

RDSEG1: 

Read in directory segment # 1 



MOV 
CALL 



#1, RO 
RDSEG 



; SAY WE WANT SEG # 1 
i READ THE SEGMENT IN 



Set up parameters about the directory 



MOV 
MOV 
MOV 
BEG 
CMP 
BHI 
MOV 
CMP 
BHI 
ADD 
MOV 
CMP 
BLO 



#USRBUF, Rl ; POINT TO BUFFER WITH DIRECTORY SEGMENT 
DH$HIS(R1>, DIRHIS j HIGHEST SEGMENT # USED 
DH*NSG<R1),DIRNSG; NUMBER OF DIRECTORY SEGMENTS AVAILABLE 



5* 

DIRNSO, #31. 

5* 

DH*NEB<R1>, RO 

RO, #512. 

5* 

#FD*OPT, RO 

RO, DIRSIZ 



;BR IF INVALID DIRECTORY 

; CHECK TO SEE IF VALID 

;BR IF INVALID 

;# EXTRA BYTES PER DIRECTORY ENTRY 

; CHECK IF REASONABLE 

; BR IF INVALID 

i # STANDARD BYTES PER DIRECTORY ENTRY 

i TOTAL # BYTES PER DIRECTORY ENTRY 
DH*BLK<R1),#DH$$BS; MAKE SURE BASE BLOCK # IS REASONABLE 
5* , ; BR IF INVALID 



Point Rl in front of 1st directory entry so NXTDIR will get 1st real entry. 



ADD #DH*$SZ,R1 
SUB RO, Rl 

Fini shed 

RETURN 

Invalid directory 



POINT TO 1ST REAL DIRECTORY ENTRY 
POINT BACK 1 ENTRY 



012700 177755 
000137 015144' 



}$: 



MOV 
JMP 



#UERR6, RO 
USRCLS 



; FATAL ERROR 
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6 








7 








8 








9 








10 








11 








12 








13 








14 


013570 


020037 


002002 ' 


15 


013574 


00 1 437 




16 


013576 


010001 




17 








18 


013600 


010137 


002002 ' 


19 


013604 


005301 




20 


013606 


006301 




21 


013610 


062701 


OOOOOOG 


22 








23 


013614 






24 


013656 


103006 




25 


1 3660 


004737 


015214' 


26 


1 3664 


012700 


177775 


27 


013670 


000137 


015144' 


28 








29 


1 3674 


012701 


OOOOOOC 


30 


1 3700 


163701 


002006 ' 


31 


013704 


000207 





. SBTTL RDSEG ■ — Read a directory segment 
RDfiEG is called to read a directory segment. 



Inputs : 
RO = Number of directory segment to be read. 
CHNNUM = Number of current channel being used. 

Outputs: 
Rl - Address of dummy directory in front of first real one. 
USRBUF = Segment read in. 
CURSEG = Number of segment read in. 



IS DESIRED SEGMENT ALREADY IN BUFFER? 
BR IF YES 
GET SEG # 



RDSEG: CMP RO, CURSEG 

BEG 1* 

MOV RO, Rl 
; Convert segment # to absolute block #. 

2*: MOV Rl, CURSEG > SAVE CURRENT SEGMENT # 

DEC Rl } 1ST DIRECTORY SEGMENT IS # 1 

ASL R 1 i CVT SEGMENT # TO BLOCK # 

ADD #DH**BS, Rl > BASE BLOCK # OF 1ST SEGMENT 

; Read in the segment. 

. READW #USREMT, CHNNUM, tUSRBUF, #512. , Rl 

BCC 1* ;BR IF NO ERROR 

CALL ERRNAM i SET FILE SPEC FOR TSKMON ERROR MESSAGE 

MOV #-3, RO ; DIRECTORY READ ERROR 

JMP USRCLS 
} Set Rl to point to dummy directory entry in front of first real one. 

1*: MOV #USRBUF+DH**SZ, Rl; POINT TO FIRST REAL ENTRY IN SEGMENT 

SUB DIRSIZ,R1 ; POINT IN FRONT OF FIRST ONE 

RETURN 



TSUSR - 
WRTSEG - 

1 
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3 








4 








5 








6 








7 








8 








9 


013706 


010146 




10 


013710 


013701 


002002 ' 


11 


013714 


005301 




12 


013716 


006301 




13 


013720 


062701 


0000000 


14 


013724 






15 


013766 


103006 




16 


013770 


004737 


015214' 


17 


013774 


012700 


177775 


18 


014000 


000137 


015144' 


19 


014004 


012601 




20 


014006 


000207 





. 8BTTL WRTSEG — Write directory segment 

WRTSEG writes the current directory segment to disk. 

Inputs: 
USRBUF = Current segment. 
CURSEG = Number of current segment in USRBUF. 



WRT 



SEG: MOV 


R 1 , - < SP ) 


MOV 


CURSEG, Rl ; 


DEC 


Rl i 


ASL 


Rl ; 


ADD 


#DH**BS, Rl > 


. WRITW 


#USREMT, CHNNUM, #t 


BCC 


1* ; 


CALL 


ERRNAM > 


MOV 


#-3, RO i 


JMP 


USRCLS i 


MOV 


<SP>+, Rl 


RETURN 





GET CURRENT SEGMENT # 

1ST SEGMENT IS # 1 

CVT SEGMENT # TO BLOCK # 

BASE BLOCK # OF 1ST SEGMENT 

ISRBUF, #512. , Rl 

BR IF WRITE OK 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

DIRECTORY WRITE ERROR 

ABORT OPERATION 



< 
I 
I 
< 
i 
< 
t 

< 

< 

< 

< 

I 

I 

< 

< 

i 

i 
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3 
4 










5 










6 










7 










8 










9 










10 










11 










12 










13 


014010 






s 


14 










15 










16 










17 


014010 


004737 


010132' 




ia 










19 










20 










21 
22 


014014 


004737 


014376' 




23 
24 










25 










26 


014020 


013701 


0000020 




27 


014024 


042701 


000001 




28 


014030 


010246 






29 


014032 


012702 


0000000 




30 


014036 


004737 


007704 ' 




31 


014042 


012602 






32 


014044 


005037 


0000000 




33 


014050 


005037 


0000000 




34 










35 










36 










37 


014054 


004737 


0000000 




38 


014060 


010361 


0000000 




39 


014064 


013761 


0000000 0000000 




40 


014072 


010105 






41 


014074 


062705 


0000000 




42 


014100 


010561 


0000000 




43 


014104 


010300 






44 


014106 


012025 






45 


014110 


012025 






46 


014112 


012025 






47 


014114 


012025 






48 


014116 


011015 






49 


014120 


016300 


0000000 




50 


014124 


042700 


177701 




51 


014130 


110061 


0000000 




52 


014134 


013700 


0000060 




53 


014140 


020227 


0000000 




54 


014144 


001402 






55 


014146 


013700 


0000040 




56 


014152 


010061 


0000000 


6 


57 


014156 


013761 


0000040 0000000 





. SBTTL SPLDIR — Directory operations for special devices 

SPLDIR is jumped to from the normal USR directory routines to perform 
a directory operation on a special type device such as a magnetic 
tape or cassette. SPLDIR releases the USR, performs the operations 

and then returns from the emt. 

I n p u t s : 
R2 - Operation function code <DF$xxx). 
R3 = Address of CSW for channel. 
FILSPC - File spec. 



SPLDIR: 



free the USR module. 

CALL FREUSR i FREE THE USR DATA BASE FOR OTHERS TO USE 

Obtain exclusive access to special device data base. 

CALL OETSPD ; GAIN EXCLUSIVE ACCESS TO SPD DATA BASE 

Copy the untranslated device/file specification from the user's area 
to a system buffer. 

Point to file spec in user's area 

Make sure address is even 

Save operation function code 

Point to buffer where name is to be stored 

Copy file spec to SPFLDV 

Restore operation function code 

HANDLER RETURNS FILE SIZE HERE 

HANDLER RETURNS ERROR CODE HERE 

Build an I/O queue entry to do the operation. 

;GET A FREE I/O QUEUE ENTRY 

; SET ADDRESS OF CHANNEL CSW 

)>Save mapping for context block 

» Get address of Q element 

; Point to internal CSW cell 

; Set up pointer to internal CSW cell 

; Get pointer to original channel block 

; Copy original channel block to internal one 



MOV 


EMTBLK+2, Rl 


BIC 


#1. Rl 


MOV 


R2, -<SP> 


MOV 


#SPFLDV, R2 


CALL 


CPYSPC 


MOV 


<SP>+, R2 


CLR 


SPSIZE 


CLR 


SPUSR 



CALL 


GETQ 


MOV 


R3, Q. UCSW(Rl) 


MOV 


@#KPAR6, Q. PA6(R1 


MOV 


Rl, R5 


ADD 


#Q. ICSW, R5 


MOV 


R5> Q. CSW<R1) 


MOV 


R3, RO 


MOV 


(R0)+, <R5)+ 


MOV 


<R0)+, (R5)f- 


MOV 


<R0>+, <R5) + 


MOV 


<R0>+, <R5) «■ 


MOV 


(RO), <RS> 


MOV 


C. CSWCR3), RO 


BIC 


#--C76, RO 


MOVB 


RO,Q. DEVX<Ri) 


MOV 


EMTBLK+6, RO 


CMP 


R2, #DF*ENT 


BEG 


6* 


MOV 


EMTBLK+4, RO 


MOV 


RO, Q. BLKN<R:l) 


MOV 


EMTBLK+4, 0. WCNT< 



Get the channel status word 
Isolate the device index number 
store the device index number 
GET FILE SEQUENCE # FOR . ENTER 
ARE WE DOING A . ENTER? 
BR IF YES 
GET SEQUENCE # 
SET SEQUENCE # 



FOR . LOOKUP, . DELETE, ETC. 
IN Q. BLKN FIELD 



RDiSET FILE ENTER SIZE IN Q. WCNT FIELD 



TSU5R — 
SPLDIR — 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 
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014164 
014170 
014176 
014202 
014204 
014210 
014214 
014220 
014224 
014230 
014232 
014236 
014240 
014242 
014246 
014252 
014256 
014262 
014266 



014300 
014310 

014312 



014320 
014326 



014336 
014342 
014344 
014350 
014352 



014356 
014360 
014362 
014366 
014372 



110261 
116361 
113700 
006200 
110061 
072027 
042700 
150061 
1 2704 
005005 
073427 
000241 
006005 
072527 
062705 
010561 
010461 
005061 
013761 



0000000 

OOOOOOG OOOOOOG 
0000000 

0000000 

000003 

177407 

0000000 

OOOOOOG 

177772 



1 77767 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



MOVB 

MOVB 

MOVB 

ASR 

MOVB 

ASH 

BIG 

01 SB 

MOV 

CLR 

ASHC 

CLC 

ROR 

ASH 

ADD 

MOV 

MOV 

CLR 

MOV 



R2, Q. FUNC<R1> ; SET OPERATION FUN CODE (LOOKUP, ENTER, ETC.) 
C. DEVQ<R3), Q. UNIT<R1>; SET UNIT NUMBER 



CORUSR, RO 

RO 

RO, Q. J0B<R1> 

#3, RO 

# A C<370>* RO 

RO, Q. JNUM<Ri ) 

ttSPFLNM, RA 

R5 

#-6, R4 

R5 

#-9. , R5 

#VPAR6, R5 

R5, G. BUFF(Rl) 

R4, G. PAR<R1) 

Q. COMP(Rl) 



; Get current job index number 

; Convert to job number 

; Set job number in queue element 

; Position for Q. JNUM field 

; Clear all but job number field 

; Set job # in queue element 

i GET ADDRESS OF FILE SPEC BUFFER 

; SET FOR SHIFT 

j SHIFT LOW-ORDER 6 BITS INTO R5 

i RIGHT JUSTIFY LOW-ORDER 6 BITS IN R5 

BIAS ADDRESS TO BE IN PAR6 RANGE 
SET THIS AS VIRTUAL BUFFER ADDRESS 
SET PAR6 BASE OFFSET 
NO COMPLETION ROUTINE 



CHNNUM, 0. CHAN <R1>; SET USER'S CHANNEL NUMBER 
Initiate the I/O operation. 



014274 004737 OOOOOOG 



103003 
012737 



013737 
013705 



177775 OOOOOOG 



OOOOOOG OOOOOOG 3*: 
OOOOOOG 



CALL QIO 

Wait for I/O to finish. 

. WAIT CHNNUM 
BCC 3* 
Directory I/O error, 

MOV #-3, SPUSR 



j QUEUE THE I/O OPERATION 



i WAIT FOR OPERATION TO FINISH 
i BR IF NO I/O ERROR 



; SET I/O ERROR CODE 
Return handler reported file size to user in RO. 



MOV SPSIZE, URO 
MOV SPUSR, R5 



} RETURN HANDLER REPORTED FILE SIZE IN USER'S RO 
} GET HANDLER REPORTED ERROR CODE 



014332 004737 014440' 



Release special device data base area. 

CALL FRESPD > FREE SPD AREA 

See if we should purge the channel. 



020227 
001405 
020227 
00 1 402 
005063 



010500 
001002 
000137 
005063 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 



CMP 


R2, #DF*LOK 


DOING 


A LOOKUP? 


BEG 


4* 


BR IF 


YES 


CMP 


R2, #DF*ENT 


DO I NT 


AN ENTER? 


BEG 


4* 


BR IF 


YES 


CLR 


C. CSW(R3) 


PURGE 


THE CHANNEL 



See if handler reported an error 



OOOOOOG 
OOOOOOG 
OOOOOOG 



4$: 



?$: 



MOV 


R5, RO 


BNE 


5* 


JMP 


EMTXIT 


CLR 


C. CSW(R3) 


JMP 


SETERR 



DID HANDLER RETURN AN ERROR CODE? 

BR IF YES 

NORMAL EMT EXIT 

PURGE CHANNEL IF ERROR OCCURED 

RETURN ERROR CODE 



< 

€ 

< 

i 
i 
i 
t 
i 
i 
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to special device data base 



SBTTL GETSPD 



Gain exclusive access to special device data base 



3 
4 
5 
6 
7 



GETSPD is called to gain exclusive access to the special device data base. 
If" the data base is currently in use by another job* our job is suspended 
until the data base becomes free. 







3 
9 

10 

11 

12 

13 

14 

15 



14376 
14402 
14404 

14410 



1 1 3700 000000G 

001412 

120037 OOOOOOG 

001412 



GETSPD: MOVB 
BEG 
CMPB 
BEG 



SPDJOB, RO 

1* 

RO, CORUSR 

2* 



IS SPD DATA BASE FREE NOW? 
BR IF YES 

HAVE WE ALREADY GOT IT? 
BR IF YES 



Someone else owns SPD data base. 
Suspend our job until it becomes free. 



16 
17 



IS 

19 

20 

22 

23 
24 
25 
26 
27 
28 
29 
30 



14412 
14416 
14422 
14426 



14430 
14436 



012700 OOOOOOG 

004737 OOOOOOG 

004737 OOOOOOG 
000763 



MOV 


#S*QSPD> RO 


CALL 


QNSPNX 


CALL 


CHKABT 


BR 


GETSPD 



1 1 3737 
000207 



OOOOOOG 



OOOOOOG 1$: 

2*: 



We can get SPD data base now. 

MOVB CORUSR, SPDJOB 
RETURN 



QUEUE FOR SPD DATA BASE 

PUT US AT TAIL OF QUEUE FOR IT 

SEE IF WE WERE ABORTED WHILE ASLEEP 

NOW TRY TO GET SPD 



i CLAIM SPD DATA BASE FOR US 



.SBTTL FRESPD — Free special device data base 



Free the special device data base and restart any user who is waiting 
for it. 



31 

32 

34 
35 

36 

37 
38 
39 
40 
41 



14440 
14446 
14450 



14454 
14460 



123737 OOOOOOG OOOOOOG FRESPD: CMPB CORUSR, SPDJOB 
001006 BNE 1* 

CLRB SPDJOB 



105037 OOOOOOG 



DO WE CURRENTLY OWN SPD? 
BR IF NOT 
FREE IT 



Restart any job that is waiting for SPD data base. 



012700 
004737 



OOOOOOG 
OOOOOOG 



MOV #S*QSPD, RO 
CALL UREGO 



;GET SPD WAIT QUEUE STATE CODE 
; RESTART ANY WAITING JOB 



014464 00020/ 



Finished 
1*: RETURN 



€ 

< 

< 

€ 
i 



( 

l« 

4 
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i 
< 

< 
i 
t 

< 

4 
< 

< 

i 
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< 
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TSUSR 
CSHADD 
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1 
2 

3 
4 
5 
6 
7 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



. SBTTL CSHADD — Add file entry to directory cache 

CSHADD is called to add a neu< file entry to the directory cache. 

I n p u t s : 
Rl = Pointer to directory entry for file in USRBUF. 
FII.DVU = Device # / uiiit"# 



014466 010246 

014470 010346 

014472 010446 

014474 010546 



014476 004737 014776' 
014502 103440 



CSHADD: MOV 
MOV 
MOV 
MOV 



R2» -<SP) 
R3, -<5P> 
R4» -<SP) 
R5, -<SP) 



See if ute are caching file entries for this device 



CALL 



CSHTST 
9* 



; ARE WE TO CACHE ENTRIES FOR THIS DEVICE? 
; BR IF NOT 



We are caching entries for this device. 

Find least recently used entry in cache table (or 1st unused entry). 



014504 012702 OOOOOOC 

014510 010203 

014512 016202 0000000 

014516 005762 0000000 



1*: 



0145S 



00 1 403 



014524 005762 OOOOOOG 
014530 001367 



MOV 
MOV 
MOV 
TST 
BEG 
TST 
BNE 



#CSHHD-FC*LNK, R2; DUMMY POINTER TO PHANTOM FIRST ENTRY 

R2, R3 i REMEMBER ADDRESS OF PREVIOUS ENTRY 

FC*LNK<R2),R2 > CHAIN FORWARD TO NEXT ENTRY IN LIST 

FCS>CDX<R2) ; IS THIS ENTRY UNUSED? 

2* ; BR IF YES 

FC*LNK<R2> i IS THIS THE LAST ENTRY IN LIST? 

1* ; BR IF NOT 



Relink cache entry at head of chain <it is most recently used), 



014532 016263 OOOOOOG OOOOOOG 2*: 
014540 013762 OOOOOOG OOOOOOG 
014546 010237 OOOOOOG 



MOV FC*LNK<R2),FC*LNK<R3); RELINK CHAIN AROUND US 
MOV CSHHD, FC*LNK(R2);N0W LINK US AT FRONT OF LIST 
MOV R2, CSHHD 



Copy info from file directory entry to cache entry. 



014552 010203 

014554 010104 

014556 012700 OOOOOOG 

014562 006200 

014564 012423 3$: 

014566 077002 



MOV R2, R3 

MOV R1.R4 

MOV #FD**SZ,RO 

ASR RO 

MOV <R4>+, <R3)+ 

SOB RO, 3* 



GET ADDRESS OF CACHE ENTRY 

GET ADDRESS OF DIRECTORY ENTRY 

GET # BYTES TO MOVE 

GET # WORDS TO MOVE 

COPY DIRECTORY INFO TO CACHE ENTRY 



014570 010562 OOOOOOG 



014574 004737 013420' 
014600 010062 OOOOOOG 



Store pointer to cached -device table entry into file cache entry 

MOV R5, FC*CDX<R2) ; REMEMBER WHICH DEVICE FILE IS ASSOC WITH 

Store starting block number of file 

; CALCULATE STARTING BLOCK # OF FILE 
; SAVE STARTING BLOCK # 



56 014604 012605 

57 014606 012604 



?*: 



CALL 


SBCALC 


MOV 


RO, FC*SBL<R2> 


Finished 




MOV 


<SP>+, R5 


MOV 


<SP>+, R4 



< 
i 
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i 
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c 

58 014610 0.12603 MOV <SP)+, R3 

59 014612 012602 MOV <SP>+, R2 

60 014614 000207 RETURN I 

I 
4 
I 
< 
f 
f 
I 

4 

< 
4 

4 
4 
4 

i 

i 

i 

i 
< 



TSUSR 
CSHDEL 
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.1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 
25 



014616 010146 



014620 062701 0000000 
014624 004737 014642' 
014630 103402 



014632 005061 0000000 



014636 012601 
014640 000207 



. BBTTL CSHDEL — Remove a file entry from the directory cache 
.; CSHDEL is called to remove an individual file entry from the cache table. 

> Inputs: 

; Rl = Pointer to directory entry for file to be removed. 
; F2LDVU = Device # / unit # of device. 

CSHDEL: MOV R1,-<SP> 

> Search for file entry in cache table. 



ADD #FD*NAM, Rl 
CALL CSHCHK 
BCS 4* 

Found entry in cache table. 
Mark it as deleted. 



POINT TO FILE NAME IN DIRECTORY ENTRY 
SEE IF ENTRY IS IN DIRECTORY CACHE 
BR IF FILE ENTRY IS NOT IN CACHE 



CLR 
F i n i & h e d 



4$: 



MOV 
RETURN 



FC*CDX(R1 ) 



(SP)+, Rl 



MARK ENTRY AS DELETED 



TSUSR — File operation EMT ' s 
CSHCHK — Search for file entry 



3 

4 

5 

6 

7 

S 

9 
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16 
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19 01 
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in directory cache 

. SBTTL CSHCHK — Search for file entry in directory cache 

CSHCHK is called to try to locate an entry for a file in 

the directory cache. If it is found the file is set as the most 

recently used. 

Inputs: 
Rl = Pointer to file name (3 words* rad50: name. name, extension) 
FILDVU = Device & unit #. 

Outputs: 
C-flag cleared if file entry is found. 
Rl = Pointer to cache table entry for file 
( same format as directory entry). 
RO = Starting block # of file. 



01 
01 



23 
24 
25 
26 
27 
28 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 
44 

45 
46 

47 01 

48 01 

49 01 
50 

51 
52 

53 01 

54 01 

55 01 
56 

57 



4642 
4644 
4646 
4650 



4652 
4656 



4660 
4664 
4666 
4672 
4676 
4700 
4702 
4706 
4710 
4714 
4716 
4722 
4724 
4730 
4732 



4734 
4742 
4750 



4754 
4760 



010246 
010346 
010546 
010103 



004737 
103442 



012701 
010102 
016101 
020561 
001012 
010300 
022061 
001006 
022061 
001003 
021061 
001404 
005761 
001355 
000414 



016162 
013761 
010137 



016100 
000241 
000401 



014776' 



000000C 

0000000 
0000000 



0000000 
0000020 
0000040 
0000000 



CSHCHK: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R5, -<SP) 
Rl, R3 



; CARRY FILE NAME POINTER IN R3 
See if this device is being cached and get pointer to device table entry 



CALL. 
BCS 



CSHTST 
4$ 



i SEE IF THIS DEVICE IS BEING CACHED 
; BR IF DEVICE IS NOT BEING CACHED 



Search for file entry in cache table. 



1$: 



2$: 



MOV 
MOV 
MOV 
CMP 
BNE 
MOV 
CMP 
BNE 
CMP 
BNE 
CMP 
BEG 
TST 
BNE 
BR 



#CSHHD-FC*LNK> Rl; GET POINTER TO DUMMY STARTING POINT 

R1,R2 i REMEMBER ADDRESS OF PREVIOUS ENTRY 

FC*LNK(R1)>R1 ; GET ADDRESS OF NEXT ENTRY IN LIST 

R5, FC*CDX(R1) ; IS FILE ON CACHED DEVICE? 

2* i BR IF NOT 

R3, RO * POINT TO FILE NAME 

(R0)+, FD*NAM(R1 >; COMPARE FILE NAMES 

2* 

<R0)+, FD*NAM+2<R1) 

2* 

(RO), FD*NAM+4(R1 ) 

3* i BR IF FOUND ENTRY FOR FILE 

FC«LNK(R1> i IS THIS LAST ENTRY IN LIST? 

1* ; BR IF NOT 

4* iFILE ENTRY IS NOT IN CACHE TABLE 



Found entry — Relink at head of list (it is most recently used). 



0000000 
OOOOOOG 
0000000 



OOOOOOG 



OOOOOOG 3$: 
OOOOOOG 



MOV 
MOV 
MOV 



FC*LNK(R1),FC*LNK(R2); RELINK LIST AROUND US 
CSHHD, FC*LNK(R1);LINK US IN AT HEAD OF LIST 
Rl, CSHHD 



Return with Rl = address of cache entry, RO = Starting block #. 
FC$SBL(Ri), RO 

5* 
Can't find file entry in cache. 



MOV 
CLC 
BR 



i GET STARTING BLOCK # FOR FILE 
i SIGNAL SUCCESSFUL RETURN 
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5B 
59 
60 
61 
62 
63 
64 
65 
66 



014764 



014766 
014770 
014772 
014774 



4*: SEC 
> Return 



012605 
012603 
012602 
000207 



5$: 



; SIGNAL UNSUCCESSFUL RETURN 



NOV 
NOV 
NOV 
RETURN 



<SP)+, R5 
<SP>+, R3 
<SP)+, R2 



TSUSR — - File operati 
CSHTST — Determine if 
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device is to be cached 



3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 


014776 


010346 


14 


015000 


010446 


15 






16 






1 7 






18 


015002 


004737 


19 






20 






21 






22 


1 5006 


013705 


23 


015012 


020365 


24 


015016 


001003 


25 


015020 


020465 


26 


015024 


001407 


27 


015026 


062705 


28 


015032 


020537 


29 


015036 


103765 


30 


015040 


00026.1 


31 


015042 


000401 


32 


015044 


000241 


33 






34 






35 






36 


015046 


012604 


37 


015050 


012603 


38 


015052 


000207 



015054 



OOOOOOG 
OOOOOOG 

0000000 

0000000 
OOOOOOG 



. SBTTL CSHTST — Determine if device is to be cached 

CSHTST is called to determine if file entries for a particular 
device & unit are to be stored in the directory cache. 

Inputs: 
FILDVU = Device & unit # 

Outputs: 
C-flag cleared if device is to be cached. 
R5 = Address of device entry in cached device table. 



CSHTST: MOV 
MOV 



R3, -<SP) 
R4, -<SP) 



If this file is on a logical disk, set up information about the LD. 

CALL GETDVU J GET INFO ABOUT PHYSICAL DEVICE AND UNIT 

Search for device information in table of cached devices 



2$: 



5$: 



3*: 



MOV 
CMP 
BNE 

CMP 

BEG. 

ADD 

CMP 

BLO 

SEC 

BR 

CLC 

F i n i shed 



4$: 



MOV 
MOV 
RETURN 



CSHDEV, R5 

R3, CD*DVU<R5> 

5* 

R4, CD*BAS<R5> 

3* 

#CD$$5Z> R5 

R5, CSHDVN 

2* 

4* 



<SP)+, R4 
<SP)+, R3 



POINT TO TABLE OF MOUNTED DEVICES 

DO DEVICE # AND UNIT #'S MATCH? 

BR IF NOT 

DOES BASE BLOCK # OF DISK MATCH? 

BR IF YES — THIS DEVICE IS CACHED 

POINT TO NEXT TABLE ENTRY 

REACHED END OF TABLE? 

BR IF NOT 

SIGNAL THAT DEVICE IS NOT TO BE CACHED 

i SIGNAL THAT DEVICE IS TO BE CACHED 



TSUSR 
GETDVU 



— File operation EMT's 
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MACRO V05. 04 Friday 18-Dec-S7 i5:35 Page 55 
i n f o 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 



01 
01 
01 
01 
01 
01 
01 
01 
01 



5054 

5060 
5062 
5066 
5070 
5072 
5076 
5100 
5104 



013703 
005004 
120337 
001010 
000303 
042703 
006303 
016304 
016303 



015110 000207 



00201 4' 



OOOOOOG 



177770 

OOOOOOG 
OOOOOOG 



. SBTTL GETDVU 



Get- device # & unit # info 



GETDVU is called to get the device number, unit number, and starting 
block number of a logical disk. 

Inputs: 
FILDVU = Logical device number and unit number. 

Outputs: 
R3 = Physical device number and unit number. 

R4 = Starting block number on physical disk of logical disk base. 
(Zero if this is not a logical disk) 

i GET DEVICE # AND UNIT # 

} ASSUME DEVICE IS NOT A LOGICAL DISK 

s IS THIS DEVICE A LOGICAL DISK? 

j BR IF NOT 

i GET LOGICAL UNIT # TO LOW ORDER BYTE 

; MASK OUT ALL BUT UNIT # 

i CONVERT TO WORD TABLE INDEX 

= GET STARTING POSITION OF LOGICAL DISK 

; GET PHYSICAL DEVICE # AND UNIT # 



GETDVU: MOV 


FILDVU, R3 


CLR 


R4 


CMPB 


R3, LDDEVX 


BNE 


4* 


SWAB 


R3 


BIC 


#--C7, R3 


ASL 


R3 


MOV 


LDBASE<R3), R4 


MOV 


LDPDEV(R3),R3 


i F i n i s h e d 





i 
I 
I 
I 
I 
t 
< 
< 
i 

i 
€ 
€ 

< 
i 
i 
i 
i 
i 
i 
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3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 


015112 


006203 




15 


015114 


005303 




16 


015116 


005002 




17 


015120 


071227 


000010 


18 


015124 


060502 




19 


015126 


062702 


0000000 


20 


015132 


012700 


000001 


21 


015136 


072003 




22 


015140 


010003 




23 


015142 


000207 





. SBTTL CDJFLG — Get usei — flag for cached device entry 

CDJFLG is called to locate within a cached-device table entry the 
specific mount-flag that corresponds to the current job. 

I n p u t s : 
R3 - Job index number of job whose flag is to be identified. 
R5 = Pointer to cached device table entry. 

Outputs: 
R2 ~ Address of byte that contains mount-flag. 
R3 = Mount-flag bit positioned correctly within byte. 



CDJFLG: 


ASR 


R3 




DEC 


R3 




CLR 


R2 




DIV 


#8. , R2 




ADD 


R5, R2 




ADD 


#CD$JOB, R2 




MOV 


#1, RO 




ASH 


R3, RO 




MOV 


RO, R3 




RETURN 





Convert job index to index 
Make base job number O 
Clear for divide 
Divide by 8 jobs per byte 
Get address of byte within 
cached-device table entry 
Get a mount flag 
Position flag according to 
Return flag in R3 



by 1 



job number 



TSUSR - 


— File 


operation EMT's 


USRXIT - 

1 
2 
3 


— - Exit 


from USR 










4 








5 








6 








7 








8 








9 








10 


015144 


013703 


OOOOOOG 


11 


015150 


001402 




12 


015152 


005063 


0000000 


13 


015156 


010046 




14 


015160 


004737 


010132' 


15 


015164 


012600 




16 


015166 


000137 


OOOOOOG 


17 








18 








19 








20 


015172 


004737 


010132' 


2.1 


015176 


000137 


OOOOOOG 


22 








23 








24 








25 








26 








27 








28 


015202 


010005 




29 


015204 


013704 


OOOOOOG 


30 


015210 


000137 


OOOOOOG 
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. SBTTL USRXIT ~ Exit from USR 



USRXIT is the exit point for EMT processing within the USR. 

USRCLS sets an I/O error code, purges the channel then aborts the emt. 

USRERR sets an I/O error code but does not purge the channel. 



I n p u t s : 
RO = error code C USRERR, and USRCLS only] 



USRCLS: MOV 
DEO 
CLR 

USRERR: MOV 
CALL 
MOV 
JMP 



CHNADR, R3 

USRERR 

C. CSW(R3) 

RO, -<SP) 

FREUSR 

<SP>+, RO 

SETERR 



Normal exit from USR 



USRXIT: CALL 
JMP 



FREUSR 

EMTXIT 



GET ADDRESS OF CURRENT CHANNEL 

BR IF NONE 

PURGE THE CHANNEL 

SAVE ERROR CODE 

FREE USR DATA BASE IF WE HAVE IT 

GET BACK ERROR CODE 

RETURN ERROR CODE FOR EMT 



j FREE USR MODULE 
i EXIT FROM EMT 



Fatal abort due to internal consistency check. 

Inputs: 
RO = Abort code. 



U ABORT: MOV 
MOV 
JMP 



RO, R5 
EMT ADR, R4 
ABORT 



GET ERROR CODE FOR ABORT 
GET ADDRESS OF ABORTED EMT 
GIVE A FATAL ABORT 



< 

i 



File operation EMT's 
Set name of file spec 



TSUSR -- 
ERRNAM — 

.1 

A™ 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 

29 015252 000207 
30 
31 
32 

33 015254 

34 00 000 J 
Errors detected: 



015214 



015214 
015220 



015230 
015236 
015244 



10 5737 
001014 



013737 
013737 
013737 
013737 



MACRO V05. 04 Friday 18-Dec-87 15:35 Page 58 
for error message 

. SBTTL ERRNAM — Bet name of file spec for error message 

ERRNAM is called to move the current device/file specification to a 
cell that will cause the spec to be printed with an error message 
when the job reenters TBKMON. 

Input s : 
FILSPC = Device/file specification in RAD50 form. 

Outputs: 
ERRSPC = Device/file specification saved for TSKMON. 

ERRNAM: 

Don't set file spec for error message if a . SERR has been done 



OOOOOOG 



TSTB 
BNE 



SERFLG 
9* 



OOOOOOG 
000002G 
000004G 
000006G 



OOOOOOG 
000002G 
000004G 
000006G 



Move file spec to holding artsa 

MOV FILSPC, ERRSPC 

MOV FILSPC+2. ERRSPC+2 

MOV FIL5PC+4, ERRSPC+4 

MOV FILSPC+6, ERRSPC+6 

; Fini shed 

j 

9*: RETURN 

> 

i Top of TSUSR module 

i 

USRTOP: 

. END 



■> Has a . SERR been done? 
; Br if yes 



> Device name 
;File name part 1 
;File name part 2 
i Extension 



*** Assembler statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







10528 Words 

17920 Words 

RT 11 



< 42 Pages) 
( 70 Pages) 



Elapsed time: 00:01:28.47 

DK: TSUSR, LP: TSUSR =DK: TSUSR. MAC/C/N: SYM 
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*DILUP 


1-55 


40-39 






















UDUPRN 


1-71 


34-130 






















*KIIMIT 


1-41 


19-77 






















«NOIN 


1-62 


34-49 






















4UCLRN 


1-47 


34-4 J 






















... VI 


47-23 


47-23 


48-14 


48-14 


49-84 


49-84 














. . . V2 


47-23 


47-23 


47-23# 


47-23# 


48-14 


48-14 


48~14# 


4S-14# 


49-84 


49-84# 






ABORT 


1-63 


57-30 






















AD$*SZ 


1-51 


14-41 


14-60 


I c <-> < 


1 5-34 


17-41 


33-24 












AD*DVU 


1-51 


1 4-39 


14-63* 


1 5-20* 


1 5-32 


15-45* 


17-39 


33-22 










AD*FLG 


1-51 


14-70* 






















AD*JOB 


1-51 


1 4-48 


14-51* 


14-58 


14-69* 


15-17 


15-19* 


15-38 


15-46* 


17-61 


33-41 




ADDENT 


5-55 


37-16# 






















AF$BYA 


1-39 


29-26 






















ALCCOM 


14-27 


15-9 


16—6 


13-11# 


















ALCEMT 


1-25 


14~6# 






















ALCEND 


1-51 


14-42 


14-61 


15-22 


15-35 


17-42 


33-25 












ALCTBL 


1-51 


14-37 


14-57 


15-10 


17-38 


33-20 














ALCTST 


14-31 


16-10 


17-16# 




















ASNEND 


1-33 


29-32 






















ASNSIZ 


2-4S# 


5-42 


29-15* 


29-50* 


















ASIMTBL 


1-32 


29-28 






















AT**SZ 


1-34 


29-31 






















AT*DEV 


1-34 


29-39 






















AT$EXT 


1-34 


29-44 






















ATfFIL 


1-34 


29-40 


29-43 




















AT$LOG 


1-34 


29-29 






















AT*SIZ 


1-34 


29-47 






















BADEMT 


1-56 


14-16 






















C. CSW 


1-40 


5-10 


5-30* 


5-67* 


6-16 


6-51 


6-68 


6-149* 


7-9 


7-61* 


8-6 


8-16 




8—23 


8-40 


8-51 


8-58* 


8-63 


8-145* 


1 1 -35* 


12-36* 


13-45 


19-87 


19-94 


29-35 




28-61* 


23-62* 


34-32* 


34-71* 


34-146* 


40-43 


40-45 


49-49 


49-104* 


49-111* 


57-12* 




C. DEVQ 


1-40 


6-63 


8-50 


19-96 


27-18 


28-60* 


49-59 












C. LENG 


1-40 


4-65* 


5-68* 


8-112 


28-64* 
















C. NUMQ 


1-40 


28-66* 






















C. SBLK 


1-40 


4-63* 


5-82* 


8-57* 


28-63* 
















C. USED 


1-40 


5-83* 


8-114 


28-65* 


















C1DEVX 


1-62 


1 8-33 


32-79 




















CD**SZ 


1-72 


1 9-62 


20-35 


22-27 


26-25 


54-27 














CD**UB 


1-73 


20-66 


24-21 




















CD*BAS 


1-72 


20-49* 


24-29 


54-25 


















CD*DVU 


1-72 


19-32 


19-34 


20-33 


20-48* 


22-20 


24-31 


24-43 


24-48* 


54-23 






CD*JOB 


1-73 


20-65 


24-20 


56-19 


















CO«NAM 


1-73 


20-45* 


20-46* 


20-58* 


20-59* 
















CD$TOP 


1-72 


20-47* 


20-54* 




















CDJFLG 


19-45 


20-73 


22-15 


24-14 


26-19 


26-23 


56~14# 












CHKABT 


1 —36 


31-25 


50-17 




















CHKACC 


6-50 


28-74 


34-16# 




















CHKALC 


28-70 


33-10# 






















CHKDEV 


6-42 


9-10 


10-16 


18-26 


25-24 


28-48 


32-14# 












CHKSD 


1-42 


4-14 


5-20 




















CHKUSE 


17-48 


19~17# 






















CHMADR 


1-32 


5-63 


8-5 


28-27 


57-10 
















CHNNUM 


1-39 


8-67 


37-49 


47-23 


47-23 


48-14 


48-14 


49-76 


49-84 


49-84 






CHNSIZ 


1-60 
























CKADEV 


2-52# 


34-82* 


34-91 


34-119 


34-132 
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CKAUNT 


2-53# 


34-81* 


34-93 


34-134 








CL$LIX 


1-46 


32-83 












CLCLOS 


1-69 














CLDEVX 


1-62 


1 8-28 


32-77 










CLOSE 


1-24 


8-5# 












CLRDIR 


1-25 


27-12# 












CLTOTL 


1-56 


1 8-30 


18-35 










CONSOL 


6-117 


6-144 


7-56 


8-100 


8-136 


36- 


-31 


CORUSR 


1-33 


8-73 


20-72 


22-13 


24-13 


26- 


-22 




34-129 


37-48 


49-60 


50-9 


50-22 


50- 


-30 


CPLEMT 


1-49 


44-42 












CPYMNT 


1-27 


26-9# 












CPYSPC 


29-20 


30-10*1 


49-30 










CSfENT 


1-41 


5-30 


5-66 


8-40 


40-45 






CS*EOF 


1-45 


8-58 












CS*ERR 


1-45 


8-58 












CS$NMX 


1-41 


8-24 


8-52 










CS*OPN 


1-42 


3-6 


19-87 


28-35 


28-62 


40- 


-43 


CS*RON 


1-45 


5-10 


6-16 


6-51 


6-68 


7- 


-9 


CS$SPL 


1-42 


8- J 6 












CSHADD 


4-56 


6-140 


8-134 


1 1 -27 


51-9# 






CSHALC 


1-42 


24-4 1 












CSHCHK 


4-42 


52-14 


53-1 7# 










CSHCLN 


1-42 


24-44 












CSHDEL 


6-34 


6-107 


7-48 


8-92 


13-32 


52- 


~9# 


CSHDEV 


1-64 


19-3.1 


20-32 


22-19 


26-17 


54- 


-22 


CSHDMT 


21-12 


21-49# 












CSHDVN 


1-64 


19-63 


20-36 


22-28 


26~26 


54- 


-28 


CSHHD 


1-63 


3-15* 


21-50 


24-52 


27-29 


51- 


-22 


CSHTST 


20-13 


23-12 


27-24 


51-16 


53-24 


54- 


-13# 


CURCP 


1-61 


31-39 












CURSEG 


2-3 1# 


5-64 


6-29 


6-82 


6-112 


8- 


-85 




39-27 


39-30* 


47-14 


47-18* 


48-10 






DELETE 


1-24 


7-5# 












DEVSIZ 


1-59 


9-30 












DF*CLS 


1-68 


8-29 












DF«DEL 


1-68 


7-2.1 












DF$ENT 


1-68 


5-31 


49-53 


49-102 








DF*LOK 


1-68 


4-24 


49-100 










DH**BS 


1-53 


46-36 


47-21 


48-13 








DH**SZ 


1-53 


37-72 


39-34 


39-44 


39-63 


39- 


-84 


DH*BLK 


1-52 


39-43 


39-81* 


45-13 


46-36 






DH*HIS 


1-52 


39-96* 


46-26 










DH*NEB 


1-52 


46-31 












DH*NSG 


1-52 


46-27 












DHSNXT 


1-52 


36-100 


39-70 


39-73* 


39-79* 


42- 


-27 


DIDDLE 


4-72 


5-74 


6-136 


44-18# 








DIRHIS 


2-32# 


39-25 


39-71 


39-97* 


46-26* 






DIRNSG 


2-34# 


39-25 


46-27* 


46-29 








DIRSIZ 


2~33# 


8-119 


8-124 


36-35 


37-27 


37- 


-61 




39-39 


39-46 


39-52 


40-24 


43-14 


45- 


-18 


DJSMNT 


1-27 


21-5# 












DLCEMT 


14-13 


15-5# 












DMT ALL 


21-14 


22-5# 












DMTDEV 


C.C CO 


23-17 


24-8# 










DMTSUB 


20-9 


21-28 


23-8# 











36-152 40~12# 

31-14 31-26 31-33 31-58 33-42 34-22 



13-45 



34-32 



34-71 



34-146 



51-33 



8-96 



51-34* 53-29 



31-46* 36-77 



53-48 



36-88 



53-49* 



36-94 



36-147 



40-23 



41-5 



4 1 -39 



45-14 



46-41 



47-29 



37-70 
46-85* 



37-71 
47-30 



37-76 



37-78 



38-27 



38-34 
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DS$DIR 
DS$NRD 
DSTAT 


1-47 
1-46 
1-25 


4-29 
4-20 
9-5# 


5-36 
5-26 


6-9 
7-17 


7-26 
8-25 


13-18 
20-23 


20-21 


34-65 










DVFLAG 
DVSTAT 


1-38 

1-32 

34-65 


4-22 
4-20 


5-28 
4-29 


7-19 

5-26 


8-27 
5-36 


20-25 
6-9 


20-27 
7-17 


33-32 
7-26 


8-25 


9-24 


13-18 


20-20 


DX*NMT 


1-38 


20-27 






















DX*NRD 
DX$RAL 


1-46 
1-38 


4-22 
33-32 


5-28 


7-19 


8-27 


20-25 














EMTADR 


1-63 


57-29 






















EMTBLK 
EMTCAD 


1-32 

25-19 

1-49 


5-44 
28-42 
44-37 


6-38 
44-18 
44-39* 


9-21 
44-53 


10-27 
49-26 


11-7 
49-52 


11-43 
49-55 


11-51 
49-57 


12-11 


14-10 


18-19 


21-10 


EMTPS 


1-59 


1 -7 1 


30-22 


44-52 


















EMTXIT 


1-54 


8-149 


49-110 


57-21 


















ENTER 


1-24 


5-5# 






















ERRNAM 


5-12 
58-13# 


6-44 


6-70 


7-11 


1 3-47 


c5"cO 


28-50 


33-34 


33-45 


34-139 


47-25 


48-16 


ERRSPC 


1-45 


58-22* 


58-23* 


58-24* 


58-25* 
















EXCJOB 


1-31 


v5 X """/i- X 


31-22* 


31-28* 


















FC**SZ 


1-56 


3-18 


3-21 


3-27 


















FC*CDX 
FC*LNK 

FC«SBL 


1-37 

1-63 

53-29 

1-64 


3-24* 

3-23* 
53-31 
51-52* 


21-51* 
3-28* 
53-41 
53-53 


24-53 
21-53 

53-47 


24-55* 

24-57 

53-47* 


27-30 

27-34 
53-48* 


27-32* 
51-22 


51-25 
51-24 


51-47* 
51-27 


52-20* 
51-32 


53-32 
51-32* 


51-33* 


FD**S2 


1-64 


44-30 


44-62 


51-40 


















FD*CHN 


1-48 


8-71 


37-49* 


40-41 


















FD*DAT 
FD*JOB 


1-49 
1-4S 


4-68 
8-73 


8-126 
37-48* 


8-128* 
40-33 


11-10 


11-11* 


12-23 


37-50* 


44-51 








FD$LEN 


1-48 
41-17 


4-64 
41-17* 


8-111 
41-35 


8-115* 
45-17 


8-122* 


12-14 


36-63 


37-43 


37-44* 


37-63* 


39-45 


39-51 


FD*NAM 


1-48 
53-39 


6-128 


8-78 


21-52* 


24-56* 


27-33* 


35-29 


36-50 


37-52 


52-13 


53-35 


53-37 


FD$OPT 


1-49 


46-34 






















FD*STA 

FD*TIM 

FETCH 


1-48 
8-108 
39-49 
1-37 
1-27 


6-80* 

8-110* 
40-48* 

4-67 
10- "/# 


6-81* 
8-120 
41-14 
8-125* 


6-93 
11-57* 
41-41 

8-132* 


6-100* 
11-59* 
43-15 
11-43* 


6-101* 
12-18 
43-17 

12-26 


6-109* 
36 "-36 


6-125* 
37-47* 


6-126* 
37-74 


7-41 
38-19 


7-52* 
38-39* 


8-94* 
39-36 


F.ILBLK 


2-35# 
























FILDVU 

FILSPC 

FNDFIL 
FNDFRE 


2— 36# 
1 8-49* 

28-55* 
1-32 

34-55 
4-48 
5-45 


8-50* 
19-34 
28-56* 

4-35 
34-63 

6-22 
36-17* 


8-53* 
19-98 
33-15 

4-41 
34-97 

6-87 


14-38 

19-100 

33-21 

6-129 
35-30 

7-36 


14-68 
20-19 
33-31 

8-79 
36-51 

8-89 


15-29 
20-51 
55-14 
15-15 
37-53 
13-25 


15-31 
25-32* 

17-25 
58-22 
35-1 5# 


17-27 

25-33* 

18-24 
58-23 


17-29 
27-13 

29-19 
58-24 


17-31 
27-17* 

29-24 
58-25 


17-39 
27-20* 

29-38 


18-48* 
27-39* 

32-19 


FRECXT 


1-57 


19-125 


19-132 


41-59 


















FRESPD 


1 -27 


49-96 


50-30# 




















FREUSR 
FS*EMP 


1-25 
1-50 
41-7 


8-141 
6-81 
41-14 


31~57# 
6-100 


49-17 
6-109 


57-- 14 

6-125 


57-20 
7-52 


8-94 


8-120 


36-37 


36-39 


38-39 


40-48 


FS$EOS 
FS*PRM 
FS$PRO 
FSfTEN 


1-50 
1-50 
1-6.1 
1-50 


w3 O "*** %3 / 

6-80 
6-93 
8-68 


36-41 
6-101 
7-41 
8-108 


38-18 

6-126 
11-57 
37-47 


39-36 

8-110 
11-59 
37-74 


39-69 
35-24 
12-18 
39-49 


4 1 -20 
36-37 
36-47 

40-27 


41-46 
39-49 


43-17 
41-41 
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GETCHA 1-55 19-03 40-42 

GETCXT 1-57 19-24 40-19 

GETDIR 8-69 35-25 42~17# 

GETDVU 20-44 54-18 55-1 4# 

GETQ 1-70 49-37 

GETSPC 6-41 9-8 10-12 18-20 25-20 28-44 29-13# 

GETSPD 49-21 5G~7# 50-18 

GETUSR 1-23 8-46 9-5 10-7 18-15 21-49 22-9 25-15 28-31 31-7# 

GFINFQ 1-26 12-10* 

HANENT 1-59 9-28 

HAWS I Z 1-59 9-26 

INSERT 37-62 37-77 38~14# 

INTPRI 1~69 31-20 31-34 31-66 31-73 

IOWA IT 1-57 8-12 

JCDB 1-38 8-34 

KPAR6 1-33 49-39 

L10FF 2-43# 36-76* 36-85 36-87* 36-117 36-133 

L1SEG 2-44# 36-77* 36-84 36-88* 36-116 36-132 

L1SIZ 2-42# 36-22* 36-71 36-75* 36-81 36-83 36-86* 36-108 36-115 36-121 

L20FF 2-46# 36-85* 36-93* 36-129 

L2SEG 2-47# 36-84* 36-94* 36-128 

L2SIZ 2-4 5# 36-23* 36-83* 36-90 36-92* 36-126 36-130 

LD*RON 1-53 34-30 

LDAEMT 1-33 21-44 

LDBASE 1-72 55-21 

LDDEMT 1-32 21-36 

LDDEVX 1-62 9-35 18-38 32-65 34-26 55-16 

LDFLAG 1-53 34-80 

LDIEMT 1~32 21-40 

LDNAME 1-73 20-56 

LDPDEV 1-69 32-69 55-22 

LDSIZE 1-55 9-38 20-53 

LNPRIM 1-56 14-49 15-39 15-39 17-64 17-64 19-54 19-54 19-105 19-105 33-43 33-43 

LOOKUP 1-24 4-5# 

4 LSTFDD 1-36 4-68* 

LSTFDT 1 -36 4-67* 

LSTSL 1-60 19-40 19-119 40-37 

4 LSW 1-55 19-77 40-39 

LSW2 1-43 

LSW3 1-62 34-49 

LSW5 1-45 f 

LSW6 1-43 

LSW7 1-47 

MAXLD 1-33 t 

MNTCOM 20-5 

MOUNT 1-27 

NLCHN 1-41 19-113 t 

NSPLDV 1~73 

NUMDEV 1 -36 

NXTDIR 37-24 38-2.1 40-28 41-8 41-21 41-47 42-21 43-14# 43-18 4 



ODTBAS 1-71 

QF**SZ 1-44 

OFSDEV 1-43 

OF*FIL 1-44 

OF*FLG 1 -44 

OF*UNT 1-44 



34-130 




34-4 1 




21-24 


25-10# 


20- 5# 




19-113 




4-12 


5-18 


32-49 




38-2.1 


40-28 


30-24 




34-110 




34-80 




34-96 




34-105 




34-93 





4 
€ 
4 
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t 

I 

19-132 40-19 40-42 41-59 

< 

I 

I 

34-69 

< 

t 
< 
< 
i 

< 

42-29 46-21 47-14# 

< 

i 

< 

i 
i 
i 
i 



OKFEND 


1-45 


34-1:13 












OKFILE 


1-43 


34-84 












OTSRON 


1-44 


34-1.05 












OVRHC 


1-69 


4-14 


5-20 


8-18 


19-24 


19-83 


19-125 


POSALC 


1-35 


14-20 


15-5 










PO*BYP 


1-35 


34-36 












PO*NFR 


1-35 


34-69 












PO*NFW 


1-35 


34-67 












PO*SYS 


1-46 


34-47 












PNAME 


1-39 


32-50 












PR7 


1-69 


31-ii 


31-57 










PRIVCO 


1-35 


1-46 


14-20 


15-5 


34-36 


34-47 


34-67 


PSW 


1-69 


31-11* 


31-20* 


31-34* 


31-57* 


31-66* 


31-73* 


Q. ELKN 


1 —L L. 

1 V../UJ 


49-56* 












Q. BUFF 


1-66 


49-73 * 












Q. CHAN 


1-67 


49-76* 












Q. COMP 


1-66 


49-75* 












Q. CSW 


1-65 


49-42* 












0. DEVX 


1-65 


49-51* 












Q. FUNC 


1-65 


49-58* 












Q. ICSW 


1-67 


49-4 I 












Q. JNUM 


1-64 


49-65* 












0. JOB 


1-65 


49-62 fc 












0. PA6 


1-63 


49-39* 












0. PAR 


1-66 


49-74* 












Q. UCSW 


1 -67 


49-38* 












Q. UNIT 


1-65 


49-59* 












0. WCIMT 


1-66 


49-57* 












QJO 


1-70 


49-80 












QNSPNX 


1-3S 


31-24 


50-16 










R*CHN 


1-61 














R4XCHN 


1-61 














R50DK 


2-38# 


32-37 












R50SY 


2-37# 


32-39 












R50SYS 


2-39# 


34-56 












R50TSX 


2-40# 


34-58 












RDSEG 


6-98 


6-123 


8-66 


8-103 


36-102 


36-150 


39-107 


RDSEG1 


8-59 


35-20 


36 2/ 


39-95 


46- 1 6# 






RENAME 


1-24 


6-5# 












RESDEV 


1-43 


34-75 












RUNFLG 


1-39 


29-26 












S*QSPD 


1-67 


50-15 


50-36 










S*QUSR 


1-33 


31-23 


31-67 










SBCALC 


5-69 


12-30 


35-38 


45-12# 


51 51 






SDCLOS 


1-47 


8-18 












SERFLQ 


1-41 


58- 1 7 












SETERR 


1-54 


1 4-23 


1 5-8 


49-112 


57-16 






3FCLS 


1-47 


8-36 












SFCOM 


11-5 


11-41 


1 1 -49 


12-10 


13-13# 






SFDATE 


1-26 


11 -5# 












SFEXIT 


11~27# 


11-44 


11-58 


1 1 -60 








SFPROT 


1-26 


ll-49# 












SFTIME 


1-26 


11-41 i\ 












SFWRIT 


11-6 


1 1 -42 


11-50 


13-~45# 








SPDJOB 


1-70 


50-7 


50-22 » 


50-30 


50-32* 






SPFLDV 


1-70 


49-29 
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SPFLNM 


1-70 


49-66 






















SPLDIR 


4-25 


5~32 


7-22 


8-30 


49-13# 
















SPLIT 


37-37 


39-17*» 






















SPSIZE 


1-70 


49-32* 


49-91 




















SPUSR 


1-67 


49-33* 


49-87* 


49-92 


















SYINDX 


1-39 


1 7-29 


24-32 


32-41 


34-51 


34-132 














SYSCHN 


1-54 


1-60 






















SYSDAT 


1-55 


8-120 


11 --9 




















SYTIMH 


1-37 


8-129 






















SYTIML 


1-37 


8-130 






















SYUNIT 


1-39 


17-31 


24-35 


32-44 


34-53 


34-134 














TK3SVL 


1-37 


S-131 






















TLCEMT 


14-15 


16-5# 






















TSUSR 


1-1 5# 


1 ---23 






















U ABORT 


8-167 


57--2B# 






















UACHKW 


1-58 


30--- 15 






















UERR1 


2-58# 


8-154 






















UERR2 


2-59# 


8-157 






















UERR3 


2-60# 


8-160 






















UERR4 


2-6 1# 


8-163 






















UERR5 


2— 62# 


8-166 






















UERR6 


2-63# 


46-50 






















UMODE 


1-71 


30-22 






















URO 


1-54 
17-51* 


4-6* 
1 7-55* 


4-66* 
17-62* 


5-6* 
17-63* 


5-54* 
49-91* 


9-7 


9-22* 


10-11 


10-30* 


1 5-42* 


16-5* 


17-21* 


UREGO 


1-36 


31-68 


50-37 




















USRBUF 


2~30# 


36-100 


37-31 


37-72 


39-34 


39-43 


39-44 


39-63 


39-70 


39-73* 


39-79* 


39-81* 




39-84 


39-85 


39-96* 


40-23 


41-5 


41-39 


42-27 


45-13 


45-14 


46-25 


47-23 


47-29 




48-14 
























USRCLS 


4-51 


5-14 


5-49 


5-59 


6-12 


6-25 


6-46 


6-62 


6-72 


6-104 


7-13 


7-32 




7-44 


7-67 


11-56 


13-21 


1 3-28 


13-49 


30-18 


33-36 


33-47 


34-141 


46-51 


47-27 




48-18 


57--10# 






















USRCNT 


2-4 1# 


31-35* 


31-60* 




















USRCOM 


4-5 


5-5 


6-5 


7-5 


13-13 


28-2641 














USREMT 


1-63 


47-23 


48-14 




















USRERR 


9-14 
31-42 


1 0-22 
57-l.i 


14-64 
57-13*1 


1 5-44 


17-34 


17-53 


17-67 


18-44 


20-39 


25-28 


28-38 


28-52 


USRINI 


1-23 


3-6# 






















USRJOB 


1-70 


31-12 


31-33* 


O .1 ""* iJo 


31-62* 
















USRTOP 


1-23 


3-11 


58-33# 




















USRUCA 


1-25 


2-2641 


44-29 


44-51 


44-61 
















USRXIT 


4-76 


5-87 
21-55 


6-150 
22-41 


7-62 
57 -20# 


9-43 


10-31 


1 1 -36 


12-37 


14-74 


15-50 


16-14 


20-75 


VALADB 


1-58 
























VALADW 


1-58 


9-23 


12-12 




















VMXFIL 


1-47 


36- 1 38 


36-140 


36-142 


















VNFCSH 


1-50 


3-16 






















VPAR6 


1 ""66 


49-72 






















WLDNAM 


1-33 


34-101 






















WRTSEG 


5-78 
48~9# 


6-84 


6-102 


6-118 


6-145 


7-57 


8-101 


8-137 


11-31 


39-74 


39-91 


39-98 
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. . . CMl 


47- 


-23 


48- 


-.14 


. . . CM2 


47- 


-23 


47- 


-23 


. . . CMS 


47- 


-23 


48- 


-14 


. . . CM7 


47- 


-23 


48- 


-14 


. READW 


1- 


-19# 


47- 


-23 


. WAIT 


1- 


-19# 


49- 


-84 


. WRITW 


1- 


-19# 


48- 


-14 


DISABL 


2- 


-4# 


31- 


-11 


ENABL 


2- 


-S# 


31- 


-20 


OCALL 


2- 


-15# 


4- 


-14 



47- 



47-23 



48-14 



48-14 



48-14 



48-14 



31-57 
31-34 

5-20 



31-66 
8-~l S 



31-73 
19-24 



19-83 



19-125 



19-132 



40-19 



40-42 



41-59 



